
25 febbraio 1987 - Anno VI 


Inserto^ 
i file sequen 


Commodore 


t Grafica^ 

■^^ietttomco 


\iitorun P e I 

ri6 e Plusj 





WIZ 2 - IMMAGINE TERRY NIEDZIALEK - NYC 



LEGGO VR 

PERCHÈ . 
HO UN’IDEA 
FISSA 
IN TESTA 


ABBONARSI A VR 
VIDEOREGISTRARE 
É FACILE! 

MA NON SOLO... 

É anche 

con vernante tutti 
gli abbonati Infatti 
ricaveranno la 
rlvlata par un anno 
a prezzo bloccato, 
pagando por di piu 
12 numeri al prezzo 
di 10 Senza 
contare poi la 
comodità di 
riceverla in caea 
con la sicurezza di 
non perdere 
neanche un 
numero Vieto che 
abbonare) 
conviene'’ Basta 
spedire l'importo 
(40 000 lire) alla 
Systems Editoriale 
via Famagosta 75. 
20142. Milano, con 
assegno non 
trasferibile, oppure 
versandolo 
direttamente sul ccp 
37952207 intestato 
alia Systems 
Editoriale 


Il lettore di VR Videotegistrare 
è giovane, dinamico, creativo. Di cultura 
e reddito superiore alla media, possiede 
spesso più di un videoregistratore, 
oltre all'impianto hi-fi e al 
computer: nel tempo libero, non 
rinuncia a viaggi in Italia e 
all'estero, e a cinema, teatro e 
spettacoli sportivi in genere. Usa 
il videoregistratore non solo per i 
programmi tv o preincisi, ma 
anche per riprendere i momenti 
felici in famiglia, per creare una 
videoteca personale. E tu. che 
lettore sei? 
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II mondo è dei dati 


Sapete che siamo circondati, senza saperlo, 
da milioni di bit che ci riguardano 

da vicino? 


L vostra carta di identità contiene 
dati memorizzati nel cervello elettro- 
nico sistemato nel municipio della 
vostra città. 

Questo può essere interrogato, in 
qualsiasi momento, da un cervellone 
più grande di lui manovrato, si spera, 
da personale autorizzato a farlo (di- 
pendenti del ministero delllntemo. 
funzionari di Polizia. Carabinieri 
eccetera). 

I dati relativi alla vostra automobi- 
le o ciclomotore, inoltre, sono su più 
supporti magnetici: su quello del- 
l'Automobile Club, dell’assicurazio- 
ne. della fabbrica in cui è stata pro- 
dotta. del concessionario dal quale è 
stata acquistata: e chissà dove altro 
ancora. 

Le date delle vostre vaccinazioni, u- 
tili a voi personalmente, sono anche 
a disposizione delle autorità sanita- 
rie che, magari, le scambiano con 
quelle di Paesi stranieri per effettuare 
statistiche di ogni tipo. 

La stessa sorte seguono i vostri dati 
relativi ad ani burocratici (compra- 
vendite. contratti, IN PS. codice fisca- 
le. libretto di banca ed altro) e anche, 
ovviamente, i miei e quelli di tutti gli 
altri cittadini del cosiddetto mondo 
civilizzto. 

La un certo effetto pensare che. 
mentre state leggendo il giornale, il 
vostro nominativo viene scartato nel- 
la ricerca di quello il cui titolare ha ri- 
chiesto un certificato di nascita op- 
pure. ve lo auguriamo, nell’indivi- 


duazione di chi ha evaso le tasse. 

In questo momento, forse, le mac- 
chine automatiche delle Poste stan- 
no smistando la corrispondenza a 
voi destinata oppure proprio nella 
sede da cui scrivo, la nostra simpati- 
ca Paola, due porte più in là, sta inse- 
rendo il vostro nominativo nel file 
dei nuovi abbonati. 

Lilc. dati. bit. byte che corrono lun- 
go i cavi, accompagnati, o meno, da 
bit di controllo, di parità, di imposta- 
zione di velocità lino a capitare in 
un'altra Ram oppure depositati su 
supporto magnetico o. ancora, deco- 
dificati e scaricati su stampante: op- 
pure inviati altrove, per chissà quale 
ulteriore manipolazione o controllo. 

Un turbinio silenzioso e inavverti- 
bile di bit da qualche parte fa girare il 
motore di un drive, avanzare un na- 
stro. spostare una margherita: un pi- 
xel si illumina mentre un altro si spe- 
gne o, addirittura, un sottile raggio la- 
ser è incaricato di scrivere, o di legge- 
re dati memorizzati in precedenza. 

E il nostro home computer, anche 
lui. è in grado certamente di gestire u- 
na certa quantità di dati. Gli stessi 
programmi non sono altro che una 
successione ordinata di byte da deco- 
dificare e ai quali obbedire senza 
esitazione. 

E anche le Rom. a pensarci bene, 
sono anch’esse dei file, e così anche, 
perchè no?, la tastiera... 

Non potevamo quindi fare a meno 
di affrontare uno dei temi vitali per 
un concreto utilizzo di un computer. 


L’inserto sulla gestione dei file, su co- 
me usarli e, soprattutto, su come 
NON usarli è già stato affrontato in 
precednz.a. ma non in maniera 
sistematica. 

Ma quali file gestire con un mode- 
sto Commodore 64? Non certo un’a- 
genda telefonica, noiosa ma didatti- 
camente indispensabile; nc una pro- 
cedura di fatturazione e gestione di 
magazzino, per i quali è necessario 
un computer più potente e più ve- 
loce. 

Rimane, comunque, una gran 
quantità di dati che, elaborati da un 
home computer, possono esser me- 
morizzati per poi riprenderli e mani- 
polarli ulteriormente: file di word 
processor, di spreadsheet, di PICCO- 
LI data base. E, ancora, file generati 
dall'elaborazione di sistemi di equa- 
zioni. dallo sviluppo di schedine To- 
tocalcio oppure di archivio del Lotto. 

La memorizzazione dei dati risul- 
tanti da un'inchiesta potranno, in se- 
guito, esser riletti un’infinità di volte 
e sottoposti alle statistiche più fan- 
tasiose. 

In questo numero, quindi, troverete 
materiale per informarsi su un argo- 
mento. la gestione dei file, che più di o- 
gni altro giustifica la nascita e. perciò 
che ci riguarda, la diffusione del per- 
sonal computer. 


Alessandro de Si mone 
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Domande Risposte 
DOWVUDE KI2b02.I i: 


Musica & computer 

□ Avendo letto il N.33 di Commodore 
Computer Club (dedicato alla musi- 
ca), vorrei avere ulteriori notizie sulla 
possibilità di utilizzare il computer in 
campo musicale e, se possibile, in cam- 
po editoriale per facilitare la scrittura 
di musica mediante programmi del ti- 
po “Music Shop”. 

(F.ugenio del Sarto - Alessandria. Claudio 
Trinoli - Castelnuovo di Assisi) 

0 

• Grazie ad una particolare interfac- 
cia, chiamata MIDI, il Commodore 
64, e altri computer, consentono, tra 
l’altro, di sincronizzare i ritmi di stru- 
menti musicali elettronici collegati 
tra loro. 

Sono disponibili numerosi modelli 
di tastiere, programmi e apparecchi 
vari che, facendo capo ad uno o più 
computer, costituiscono una vera e 
propria orchestra gestibile da cal- 
colatore. 

E’ piuttosto difficile, come potrai 
intuire, dare consigli sul modello più 
opportuno o sul software più adegua- 
to alle varie esigenze. Se, però, ti ri- 
volgi ai componenti di complessi 
musicali, riuscirai sicuramente ad a- 
vere notizie “dirette” su come risolve- 
re i tuoi problemi: nessuno potrà ri- 
sponderti più esaurientemente di co- 
loro che utilizzano abitualmente 
strumenti musicali collegati con il 
computer. 

Per ciò che riguarda la seconda 
parte della domanda, vale a dire la 
possibilità di adoperare il C/64 per 
scrivere musica, è probabile che la 
qualità di stampa del Music Shop, 
benché ottima per usi... domestici, 
non sia adeguata per realizzare spar- 
titi musicali da riprodurre per scopi 
editoriali: anche rocchio vuole la sua 
parte e la definizione ottenibile con 
una semplice stampante ad aghi non 
penso che possa competere con la 
qualità riscontrabile negli spartiti 


posti in vendita nei negozi di mu- 
sica. 

A parte la velocità massima con cui 
puoi scrivere musica utilizzando 
programmi “musicali", è infatti pre- 
sente il problema della qualità di 
stampa legata inevitabilmente ai li- 
miti della stessa printer. 

Una qualità migliore si può sicura- 
mente ottenere con stampanti a getto 
di inchiostro oppure con le moderne 
Laser Printer, dal costo relativamen- 
te elevato, da collcgare. però, a com- 
puter professionali del tipo Amiga, 
Macintosh o Ms-Dos. 

Se ritieni che valga la pena spende- 
re una quindicina di milioni (come 
minimo) per computerizzare Adi- 
zione degli spartiti, rivolgiti a negozi 
più che specializzati per sapere come 
entrare in possesso di programmi e 
computer idonei allo scopo. 


Primi lavori 

□ Sono un ragazzo di 12 anni che pos- 
siede un C/64 ed una miniprinter con 
la quale ho stampato il programma che 
vi invio. Se lo ritenete opportuno pub- 
blicatelo pure. 

( Diego Trevisan - Vicenza ) 

• Il listato ricevuto è semplice, ben 
impostato e dimostra che. a dispetto 
della tua giovane età. stai imboccan- 
do la strada giusta per la realizzazio- 
ne di programmi ben più complessi. 

Putroppo lo ritengo poco adatto al- 
la pubblicazione non solo per la sua 
applicazione (piuttosto particolare) 
ma. soprattutto perchè, qui in Reda- 
zione. non abbiamo il tempo di digi- 
tare i listati che i lettori spediscono. 

I programmi che vedi pubblicati, 
infatti, sono stati in precedenza con- 
trollati uno per uno ed il tempo ne- 
cessario per verificarne il corretto 
funzionamento è di certo conside- 
revole. 


A stento, quindi, riusciamo a star 
dietro ai programmi inviati su sup- 
porto magnetico dal caricamento im- 
mediato: figurarsi se è possibile tro- 
vare una pausa per digitare program- 
mi che pervengono su carta! 

Se. in un futuro che ti auguriamo 
prossimo, realizzerai qualcosa di in- 
teressante, ti prego di telefonarci 
PRIMA di inviare la cassetta (oppure 
il disco) contenente il programma 
che desideri veder pubblicato; in ca- 
so contrario, come putroppo è capita- 
to ad altri lettori, rischi di lavorare su 
un argomento non ritenuto idoneo, 
oppure già in corso di pubblica- 
zione. 


Capire il Sistema Operativo 

□ Esiste un libro in italiano in cui ven- 
gono commentate tutte le routine del 
Sistema Operativo? In caso negativo, 
perché non lo pubblicate voi, magari 
a puntate? 

(Marcello Artioli • Ferrara ) 

• Il Sistema Operativo (S/O) è quel- 
l'insieme di sottoprogram mi. scritti 
in Linguaggio Macchina (L/M), ne- 
cessari per la corretta gestione del 
computer. 

Per quanto mi risulti, non esiste un 
libro del genere con commenti detta- 
gliati in italiano e. se non erro, nem- 
meno in inglese. 

I volumi su questo argomento, che 
di norma si trovano in libreria, sono 
infatti scritti in inglese, a patto di 
considerare “scritti” un termine ap- 
propriato: vi sono, infatti, soltanto 
stringatissimi commenti alle varie 
routine e non vengono riportate, tra 
l'altro, nemmeno le indicazioni su 
come utilizzarle. Totale, tra l'altro, è 
l'assenza di esempi o applicazioni 
pratiche. 

II motivo di tale schematicità è pre- 
sto detto: chi desidera studiare da vi- 
cino il S/O è una persona di indubbie 


Commodore Computer Club - 5 


capacità che conosce in maniera 
molto approfondita il linguaggio 
macchina e. quasi certamente, la lin- 
gua inglese. Le telegrafiche informa- 
zioni sulle numerosissime routine 
(diverse centinaia), sono quindi più 
che sufficienti per chi è realmente 
interessato. 

Chi. viceversa, non ha intenzione 
di studiare (perchè di STUDIARE si 
tratta) il S/O di un calcolatore, non 
verrà certo allettato dalla proposta di 
un libro, inevitabilmente volumino- 
so (e costoso), anche se scrìtto in ita- 
liano. che illustri le potenzialità del 
computer in suo possesso. 

In definitiva: nessuno pubblicherà 
mai un libro del genere che tu richie- 
di. a meno di rischiare un completo 
insuccesso commerciale. Libri sul 
L/M. invece, ve ne sono parecchi, al- 
cuni ottimi, altri un po’ meno. 

Di tanto in tanto anche noi pubbli- 
chiamo argomenti legati al S/O ma 
non pensiamo, almeno perora, di af- 
frontare l'argomento in maniera 
sistematica. 

Se. comunque, ti senti attratto dal 
linguaggio macchina, ti consigliamo 
di acquistare, in edicola, il fascicolo 
“Commodore Speciale” della Sy- 
stems Editoriale, che contiene, oltre 
ad un breve “corso" sul L/M. ricco di 
esempi ed applicazioni, anche il di- 
sasscmblato, commentato, di un tool 
grafico per il Commodore 64. 


Paddle 

□ Che cosa sono le paddle? 

(Alessio Carretta - Segrete) 

• Le Paddle. vendute in genere a cop- 
pia, costituiscono un accessorio utile 
come strumento di Input. Ciò signifi- 
ca che, a seconda della rotazione di 
una manopola, è possibile “comuni- 
care" al calcolatore l'intenzione di 
spostare il personaggio di un video- 
gioco oppure la scelta di una partico- 
lare opzione e così via. 

Purtroppo, a dispetto della mode- 
sta cifra richiesta (circa 15000 lire) 
pochi programmi sono predisposti 
per servirsi del comodo accessorio e 
la loro diffusione risulta, di conse- 
guenza. piuttosto limitata. 
Naturalmente non serve a nulla 


collegare le paddle e cercare di servir- 
sene in un programma che non ne 
preveda l'uso: sarebbe come utilizza- 
re un televisore a colori nel tentativo 
di vedere, a colori, un vecchio film 
trasmesso in bianco e nero! 

Autoboot 

universale 

□ Ho trovato interessante l'articolo 
"Autoboot 128” pubblicato su C.C.C. 
N.35 e mi chiedo se non sia possibile 
caricare con il C/128 un programma 
per C/64 in modo da utilizzare la pro- 
cedura di Autoboot, esclusiva del 
C/128, anche per programmi del 
C/64. 

(Marco Monone - Torino) 

• Per Autoboot si intende quella par- 
ticolare procedura automatizzata 
grazie alla quale, inserendo un di- 
schetto nel computer ancora spento, 
sia caricato un certo programma ivi 
contenuto non appena si accende il 
calcolatore. 

Come si può intuire tale procedura 
è comoda per gli utenti inesperti che 
sono in grado di utilizzare soltanto 
programmi professionali a prova di 
errore. 

Un altro motivo per cui. spesso, si 
ricorre all'autoboot. è dovuto al desi- 
derio di inserire particolari routine 
che rendano inattive alcune funzioni 
e che. in generale, impediscano la co- 
pia del dischetto. 

Per quanto abbiamo detto risulta 
chiaro che un autostart è possibile 
solo se la particolare circuiteria del 
calcolatore lo preveda; in caso con- 
trario un autoboot a freddo è del tutto 
impossibile. 

Abbiamo pubblicato, in passato, 
numerosi articoli che consentano 
lautostart. ma tutti richiedono la di- 
gitazione di un comando, pur se bre- 
vissimo (come. ad esempio. 
LO AD"*” 8,1). 

Cantare automaticamente un pro- 
gramma del C/64 in modo 128 pre- 
supporrebbe le seguenti fasi: 

- Inserire, nel dischetto, la routine di 
caricamento automatico (per C/128 
in modo 128). 


- Fare in modo che il programma, ca- 
ricato automaticamente, alteri vari 
puntatori e modifichi gran parte del- 
la Ram (e ricopi, tra l'altro, parte del- 
la zona Rom nella Ram sotto- 
stante). 

- Costringere il C/128 a passare in 
modo C/64 (ricorrendo, in L.M. ad 
un G064 o simili). 

- Abilitare le routine precedentemen- 
te predisposte ad eseguire l autostart 
C/64 a caldo. 

La Ram del C/l 28 in modo C/64 co- 
stituisce. infatti, una parte dell'intera 
Ram del sistema ed è possibile, quin- 
di. scrivervi “qualcosa” anche se si è 
in modo 128. Quando si passa al mo- 
do 64. tale Ram non viene modificata 
ma viene fatta partire una routine, 
posta in Rom. il cui indirizzo è conte- 
nuto nelle locazioni esadecimali 
FFFC FFFD. 

Se. prima di passare al modo 64, 
sposti la Rom del Basic e del Sistema 
Operativo in Ram e modifichi le op- 
portune inizializzazioni. DOVREB- 
BE (il condizionale è d’obbligo) suc- 
cedere quanto tu desideri. 

Il lavoro di programmazione che 
sarebbe necessario compiere risulta 
però decisamente arduo c forse non 
vale la pena dedicare tanto tempo per 
risparmiare la digitazione di un sem- 
plice comando tutte le volte che ac- 
cendi il computer. 

Finalità di C.C.C. 

□ Chi vi scrive è un vostro fedele letto- 
re. Siete caduti cosi in basso che non 
meritate neanche questa lettera, ma 
l'odio e il disprezzo che nutro per voi è 
troppo forte... (omissis)... I.a vostra ri- 
vista fa schifo per non parlare dell’En- 
ciclopedia di Routine e s... varie dedi- 
cate a quegli scemi che. come voi... (o- 
missis)... Ma finitela col Basic e inizia- 
te un discorso più sofisticato: per i 
principianti ci sono gli arretrati (per 
quel che servono)... Vorrei sapere cosa 
ha da dire de Simone, se osa rinnegare 
una sola riga di questa lettera... (omis- 
sis)... Sbrigatevi a pubblicare le scuse 
perchè non voglio spendere altri soldi 
in carta igienica di pessima qualità. 
(Intiera anonima) 
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• Questa lettera, che si commenta da 
sola grazie al notevole coraggio e- 
spressodal distratto lettore che ha di- 
menticato di firmarla, è stala presa 
ad esempio non per sottrarre spazio 
ad argomenti più importanti ma. al 
contrario, per chiarire quale sia la 
nostra posizione. 

Chi. realmente, ha passione per i 
computer non arriverà mai a dire che 
del Basic sa già tutto ed è il caso di 
passare a qualcosa di più sofisticato. 
Siamo convinti che. soprattutto nel 
campo deirinformatica. non si fini- 
sca mai di imparare; siamo lutti, in- 
somma. perennemente "principian- 
ti” (in senso buono) e un qualsiasi 
programma, per quanto banale, si ri- 
vela idoneo ad esser sviluppato, mo- 
dificato. ampliato utilizzando quel 
meraviglioso componente presente 
in ognuno di noi: il cervello. 

Non tutti, lo riconosciamo, sono in 
grado, partendo da semplici conside- 
razioni. di sviluppare per proprio 
conto elaborazioni mentali: lo dimo- 
stra ancora una volta il nostro anoni- 
mo lettore che utilizza, in modo 
quantomeno antieconomico, una 
qualità di carta per nulla idonea a 
svolgere operazioni di stretta inti- 
mità. 

Siamo però convinti che la strada 
giusta sia quella di illustrare, con 
semplicità, argomenti a torto ritenuti 
complessi ed in questo siamo confor- 
tati non solo dalle numerose lettere 
di complimenti, ma anche da quelle 
contenenti garbata e civile critica da 
parte di lettori che ci sollecitano, an- 
zi, a rendere ancora più semplici al- 
cuni temi già affrontati in prece- 
denza. 

Coloro che. nonostante tutto, han- 
no in passato ritenuto che i contenuti 
della rivista incominciassero ad an- 
dar “stretti" per le proprie capacità, 
prima di abbandonarla del tutto 
hanno preferito contattarci espri- 
mendo i loro dubbi. Molto spesso 
queste stesse persone sono diventate, 
da semplici lettori, direttamente... au- 
tori degli articoli e programmi che 
vedete pubblicati. 

Per quanto riguarda la decisione 
del nostro “fedele" ed anonimo letto- 
re. mi sento in dovere di ringraziarlo 
per la sua decisione di non acquista- 


re più la nostra Rivista: il suo edico- 
lante, infatti, generalizzando perico- 
losamente. potrebbe ritenere che i 
lettori di Commodore Computer 
Club siano tuoi come lui. 

I nostri lettori, invece, sono tutte 
persone educate e civili. 

Per ciò che. invece, riguarda le ac- 
cuse inappellabili contenute nel co- 
raggioso manoscritto, precise que- 
stioni di stile mi impediscono, vivad- 
dio. di rispondere a tono. 

Aiuto! 

Molti lettori, soprattutto coloro che 
sono entrati in possesso del loro primo 
computer in occasione dello scorso 
Natale, ci bombardano di lettere (al 
ritmo di una quindicina al giorno) chie- 
dendo informazioni su questioni di ec- 
cessiva Semplicità che sono, proprio 
per questo motivo, non pubblicabili. 

Coloro che hanno un disperato biso- 
gno di aiuto (la cui ansia giustifichia- 
mo pienamente) possono telefonarci 
(02/84.67.34.8). Allo scopo di evitare 
costose telefonate interurbane, consi- 
gliamo, VIVAMKNTK, di leggere con 
attenzione il manuale allegato al com- 
puter che, nella gran parte dei casi, 
contiene adeguate risposte alle do- 
mande più semplici. 

Per quanto riguarda altri argomenti 
vi consigliamo, altrettanto vivamente, 
di leggere Tt TTI gli articoli pubblica- 
ti sulla nostra rivista perchè molto 
spesso, in alcuni programmi, si ricorre 
a particolari tecniche di programma- 
zione oppure si affrontano argomenti 
apparentemente slegati dal tema 
principale. 

Solo se, realmente, non trovate le in- 
formazioni che desiderate, telefonate- 
ci (meglio se al pomeriggio) oppure 
scriveteci sottoponendo il vostro que- 
sito. 

Tenete conto, tuttavia, che in nessun 
caso rispondiamo privatamente, nem- 
meno se allegate un francobollo per la 
risposta o se ci assicurate (come ha 
proposto un lettore) di pagare l'even- 
tuale parcella per la consulenza(!). 

Non ne facciamo, infatti, una que- 
stione di denaro: la decisione di pubbli- 


care un quesito, piuttosto che un altro, 
è dovuta esclusivamente a motivi di in- 
teresse generale. 


Ingiustizie 

□ Kgregio signor direttore, le scrivo 
per comunicarle la mia disapprovazio- 
ne sul fatto che da quando compro 
C.C.C (quattro mesi) non ho trovato 
un solo gioco per C/16: solo program- 
mi per (764. Non mi sembra giusto. 
{Aliamo Gianluca ■ l tllafranca). 

• Pubblico volentieri la tua brevissi- 
ma ma (forse proprio per questo) 
pungente lettera nella speranza che 
tu. nel frattempo, abbia continuato a 
comprare la rivista e che. soprattutto, 
abbia notato il nostro sforzo nel pub- 
blicare argomenti che riguardano da 
vicino lo sfortunato computer della 
Commodore. 

Tieni conto, comunque, che molti 
dei listati pubblicati sono validi per 
qualsiasi computer e. di conseguen- 
za. anche per il C/16. 

Purtroppo non mi e possibile dedi- 
care un elevato numero di pagine a 
calcolatori che hanno avuto una 
scarsa diffusione: tieni presente che 
devo pur render conto del mio opera- 
to alfcditore che non vedrebbe di 
buon occhio, giustamente, un'inevi- 
tabile. parallela insoddisfazione de- 
gli utenti del (764. che rimane fhome 
computer più venduto in Italia. 

Pensa che analoghe delusioni sono 
sopportate pazientemente da appas- 
sionati di discipline sportive poco 
diffuse che vedono, loro malgrado, 
pagine e pagine dei quotidiani dedi- 
cate al calcio, contro qualche solita- 
ria “colonna che parla del loro sport 
preferito. 

Ne approfitto per rispondere anche 
a coloro che non ritengono giusto 
l'inserimento, nella nostra rivista su 
nastro (Software Club) di programmi 
per MSX e per Sinclair Spectrum. 

Ricordiamo, infatti, che anche se e- 
liminassimo dal nastro tali program- 
mi. lo spazio lasciato libero non ver- 
rebbe “riempito " da altri programmi 
per computer Commodore: non pen- 
sate che sia facile produrre software 
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(e soprattutto proporlo a prezzi co- 
sì bassi). 

Molli rotocalchi e quotidiani, che 
leggete abitualmente, contengono di 
certo rubriche che non richiamano il 
vostro interesse e che. per quanto vi 
riguarda, poterebbero benissimo es- 
tere scritte in arabo dal momento che 
non le leggete mai. 

F così difficile, quindi, far finta che 
la parte di nastro che non potete cari- 
care contenga uno dei discorsi di 
C'raxi. il resoconto di una giornata di 
Marta Marzotto oppure, più sempli- 
cemente. la pubblicità del Dash?... 

Robin Hood 
era un pirata? 

□ Giudico interessante la vostra ini- 
ziativa “Directory** che propone molto 
software a basso prezzo. Però la pira- 
teria non la si combatte solo con i prez- 
zi. ma anche con la disponibilità dei 
programmi. 

Come dovrebbe comportarsi, infatti, 
l'utente che desiderasse venire in pos- 
sesso dei nuovi programmi (presenti 
sul mercato americano da mesi e mesi) 
se non rivolgendosi ai cosiddetti “pira- 
ti"? Chi ha una copia originale di 
“Geos”, “Newsroom**, “Movie Ma- 
ker" ed altri, scagli la prima pietra. 

Se la stessa Commodore, o chi per 
essa, impostasse una seria politica di 
distribuzione del nuovo software origi- 
nale, di informazioni varie e, natural- 
mente, di prezzi accessibili, forse ven- 
derebbe più hardware (e magari qual- 
che (7 128 in più). Qualcosa forse si 
sta muovendo (vedi il corag gi oso esem- 
pio della Mastertronic, copiata ripetu- 
tamente dai pirati), ma quanto dovre- 
mo aspettare per avere gli altri pro- 
grammi originali, dotati di manuali e 
garantiti? 

Scusatemi, ma mi sono lasciato 
trasportare... 

( ('ostammo Fessa no - Finale Ligure/ 

• Ecco un discorso che non fa una 

grinza ma che ha un notevole difetto: 
è rigorosamente logico e. per quanto 
banale (mi scusi, signor Pessano) in- 
telligente e validissimo sotto tutti i 
punti di vista Quanto ho appena af- 
fermato. però, non ha lo scopo di e- 


sprimcre un complimento per le sue 
facoltà mentali ma. al contrario, una 
doverosa manifestazione di stupore 
nei confronti delle Alte Menti dei di- 
rigenti di alcune aziende che sem- 
brano fare a gara nel darsi martellate 
sulle dita. 

Tutte le fabbriche di computer do- 
mestici (e non) hanno capito subito 
che il futuro dell'azienda è nel 
software e si sono dati (e si danno) da 
fare per inserire nel proprio listino 
numerosi programmi adatti per tutte 
le esigenze. La Commodore, al con- 
trario. presenta al pubblico un cata- 
logo che definire scarno è un com- 
plimento. 

Il motivo recondito di un simile 
comportamento commerciale mi sfug- 
ge totalmente; rimane, ora. un dub- 
bio: gli odierni pirati del software so- 
no forse gli emuli di Robin Hood che 
toglieva ai ricchi per dare ai poveri? 

E mentre rivolgo la domanda ai let- 
tori mi accorgo di non avere a dispo- 
sizione pietre da scagliare per 
primo... 

Listato 

strano 

□ Caricando alcuni programmi con il 
C/64 dotato di Disk drive 1541 e car- 
tuccia East-disk compare, alla richie- 
sta di LIST un messaggio simile al 
seguente: 

1984 SYS 2099 

E* possibile eliminare il fast disk per 
esaminare il programma? 

(Eleonora Menint • Roma) 

• Finalmente una rappresentante del 
gentil sesso! Chissà perche, infatti, si 
ritiene che i computer siano "roba" 
da maschi. 

Tornando al quesito, ci permettia- 
mo di ricordare ciò che abbiamo 
spesso scritto: se. dopo il caricamen- 
to di un programma, il comando di 
LIST fornisce una sola istruzione 
(SYS XXX o simili), quello che c sta- 
to caricato non è un programma Ba- 
sic ma. al contrario, un programma 
in Linguaggio Macchina (oppure 
compilato). Ciò significa che è im- 
possibile “estrarne" il listato per il 


semplice motivo che... non ce (alme- 
no per come comunemente si in- 
tende). 

Lo "strano" messaggio che compa- 
re. quindi, non è dovuto al fast-disk o 
ad un errato caricamento da parte 
del l'ut i lizzature. 


Random 

e L.M. 

□ Come è possibile ottenere un nume- 
ro casuale in ambiente linguaggio 
macchina? 

(Stefano Lumicino * Magenta) 

• Il numero casuale che normalmen- 
te viene generato con la funzione 
RND si basa sull'orologio interno 
che. nel caso del C 764, è gestito attra- 
verso le tre locazioni di memoria 
RAM 160. 161. 162 il cui contenuto 
viene aggiornato automaticamente 
ogni 60-modi secondo. In altre paro- 
le il contenuto della locazione 162 
viene incrementato da 0 a 255; il suc- 
cessivo 60-mo di secondo il suo valo- 
re torna nullo mentre la locazione 
161 si incrementa di uno. Allo stesso 
modo si comporta la locazione 160 
che, però, non si azzera dopo 
256*256*256 sessantesimi di secondo 
(come saresti indotto a credere), ma 
dopo un periodo ili tempo pari a 
24 ore. 

Se ti trovi in L/M. quindi, puoi fare, 
di tanto in tanto, un "salto" alla lettu- 
ra del contenuto del byte 162 che. va- 
riabile tra Oc 255. non dovrebbe esser 
prevedibile a priori a meno di effet- 
tuare una lettura ad intervalli di tem- 
po ben precisi e sempre rigorosa- 
mente eguali tra loro. Ma anche in 
questo caso, effettuando sapiente- 
mente calcoli... improbabili sul con- 
tenuto delle tre locazioni, dovresti 
riuscire neirintcnto. 

Problemi 
con Easy script 

□ Quando uso il word processor Easy 
Script, e desidero utilizzare fogli sin- 
goli, ho difficoltà ad impostare i vari 
comandi per fare in modo che un lungo 
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testo venga stampato correttamente. 
Potete aiutarmi? 

t Tonio Gira - Calatone) 

•Un qualsiasi word processor, e 
quindi anche Easy Script, possiede 
due comandi fondamentali per la ge- 
stione (detta più propriamente “for- 
mattazione*') del foglio di carta: il 
primo riguarda la lunghezza del fo- 
glio di carta adoperato, mentre il se- 
condo determina il numero di righe 
che si desidera scrivere su ciascun 
foglio. 

Se. ad esempio, desideri inserire fo- 
gli di carta più lunghi del normale 
(capaci, magari, di contenere ciascu- 
no un centinaio di righe di testo) non 
sei tuttavia obbligato a riempirli per 
intero, ma é possibile distribuire il te- 
sto su un numero maggiore di pagine 
di quanto sia strettamente suffi- 
ciente. 

Desiderando utilizzare fogli di car- 
ta fuori formato, sarà comunque ne- 
cessario effettuare alcune prove per 
controllare quante righe è possibile 
stampare senza che il sensore di fine 
carta interrompa la procedura. 

Easy Script, non appena viene atti- 
vato. "ritiene'' che i fogli utilizzati 
siano di formato tale da poter stam- 
pare 66 righe di testo ed inserisce au- 
tomaticamente un gruppo di linee 
vuote tra una pagina e la successiva 
in modo da “saltare" la parte zigrina- 
la che facilita lo strappo nei fogli 
continui. 

Se. nelle prove, ti accorgi che il nu- 
mero di 66 righe comporla inconve- 
nienti per il formato di carta che ado- 
peri, puoi modificarne il valore, por- 
tandolo, ad esempio, a 60. Il modo di 
procedere è quello che già conosci: 
dopo aver premuto il tasto funzione 
F3 (che fa comparire un asterisco in 
campo inverso) digita il codice di 
lunghezza pagina (Page Length) se- 
guito dal numero di righe deside- 
rato. 

Esempio: 

•pl60 

Ti ricordo che è possibile migliora- 


re ('aspetto di un documento impo- 
stando anche (Text Length) il massi- 
mo numero di righe stampabili, che 
deve essere, come è intuitivo, inferio- 
re o al massimo eguale a quello pre- 
cedente. Esempio: 

•tl50 

In ogni caso, anche prima di effet- 
tuare le prove su carta, ti consiglio di 
ricorrere alla simulazione su video di 
ciò che verrà realmente stampato: 
premi il tasto funzione FI e. subito 
dopo, i tasti "O " (che significa Out- 
put) e "V" (che sta por Video). 

In tal modo il video si trasforma in 
una "finestra" da far scorrere da de- 
stra a sinistra con i tasti cursore, dal- 
l’alto in basso premendo la barra 
spaziatrice (al contrario à impossibi- 
le). Alla fine della pagina, premendo 
il taso X'. si potranno esaminare 
quelle successive, fino all'ultima. Per 
tornare al modo testo é sufficiente 
premere il tasto Run/Stop in qualsia- 
si momento. 

TOT 13 
non funziona? 

□ Ho trascritto il programma TOT 13 
pubblicato su C.C.C. N.35 ma a volte, 
impostando alcuna sistemi, il program- 
ma fornisce elaborazioni che a mio pa- 
rere non sono esatte. In particolare ot- 
tengo addirittura zero colonne impo- 
stando il seguente sistema formato da 
cinque doppie, una tripla e sette 
fisse: 

I X, I X, I X. I X, 1 , 1 X,X,X, 1 X2,2,2, 1 , 1 

Le altre imposta/ioni, necessarie per 
far girare il programma, le ho fissate 
come segue: 

Numero di segni: 

1 da 2 a 4 
X da 1 a 3 

2 da I a 2 

Consecutivi ta segni: 

I: 4 
X: 2 
2 : 2 


Perche il programma non funziona? 

(Dana hsaneUo - Treviglio) 

• Il programma, anzi, fornendo una 
risposta nulla, dimostra di funziona- 
re perfettamente dal momento che 
non esistono colonne del sistema in- 
dicato che soddisfano. CONTEM- 
PORANEAMENTE. tutte le condi- 
zioni impostale. 

Per meglio seguire il ragionamento 
ti consiglio di digitare e far girare a 
parte il seguente programma che non 
è altro se non una modifica del listato 
pubblicato sullo stesso N.35 a pagina 
22 (secondo programma): 

120 REM SVI LCPPO DEL SISTEMA 
TOTOCALCIO 

130 REM IX,IX,IX,IX.I.|\,X,X,IX2. 
2.2.1, 1 

140 AS<0)*"X":AS(l>«"r:AS<2>*"2": 

ASf3)-"X":W«l 

150 EGRA = OTO I : RE M l/X 

160 EORB = OIOI:REM l/X 

170 EOR( = OTO I : REM l/X 

180 EORI)-OTOI:REM l/X 

190 EORE = OTO I : RE M l/X 

191 EORE = 0T( ) 2: R EM t/X/2 

195 PRINTAS(A)AS<B)A$<C )A$U))"r 
A$(E) ,, XX"A$(E)”22l 1”; 

200 PRINTCIIRS< I8)W:W* W+ I 
210 NEXTE.E.D.C.B.A 

Questo programma visualizza le % 
colonne ( = 2*2*2*2*2*3. cinque dop- 
pie ed una tripla) del sistema svilup- 
pato integralmente. 

Ti accorgerai facilmente che le pri- 
me 88 colonne (ad eccezione della 47. 
48. 71. 72. 83 e 84) non soddifano la 
condizione della quantità massima 
dei segni "X" (fissata da 1 a 3) e ven- 
gono. pertanto, scartate. Ma anche le 
colonne indicate tra parentesi vengo- 
no scartate perché il numero di segni 
T' presenti supera quello impostato 
(da 2 a 4). Le rimanenti colonne (dal- 
la 89 alla %) vengono scartate per lo 
stesso motivo. 

E quindi inevitabile che l'elabora- 
zione non fornisca colonne gioca- 
toli! 

Ti consigliamo, pertanto, di studia- 
re con la massima attenzione le con- 
dizioni "ai limiti" in modo da evitare, 
per il futuro, delusioni o sorprese 
inaspettate. 
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GIOCHI 

AMIGA 


Defender of thè Crown 


Solo per l'Amiga poteva essere scritto 
un adeventure grafico di notevole effetto 


di Giovanni Valli & Ornella Fidani 



(Chiunque possegga un Commo- 
dore Amiga e, desideri usarlo nei mo- 
menti di svago, da oggi avrà un serio 
motivo in più per essere soddisfatto 
della fiducia accordata al nuovo 
computer delia Commodore. 

Il motivo si chiama “Defender of 
thè Crown": già alcuni lo chiamano 

il primo grande gioco per l'Amiga' 
e, senza essere cosi categorici, dob- 
biamo ammettere che questo prodot- 
to rappresenta un concreto passo in 
avanti rispetto alla massa dei pro- 
grammi disponibili sul mercato. 

Innanzi tutto risulta molto difficile 
collocarlo in un ambito ben definito; 
il suo svolgimento ricorda vagamen- 


te quello del famoso gioco da tavolo 

Risiko" e lo scorerre delle immagini 
la pensare ad un cartone animato, 
anzi, quasi ad un film, in cui chi gio- 
ca diventa il protagonista, imperso- 
nando uno lord sassone. 

Abbiamo riscontrato anche un pic- 
colo inconveniente dovuto al fatto 
che. se non si desidera interrompere 
la continuità degli avvenimenti, è ne- 
cessario possedere due disk-driver il 
programma, infatti, è ripartito su 
due dischetti. 

Passiamo ora a parlare più concre- 
tamene dell'argomento del gioco. 

Siamo nell'anno 1149 nell'Inghil- 
terra travagliata da una profonda cri- 


si politica; al ritorno da una delle 
Crociate il re affida le varie contee in 
parte a signori sassoni ed in parte si- 
gnori normanni. Ma i due popoli, co- 
me è noto, si odiano e. se non bastas- 
se. in seno al primo dei due vi sono 
anche elementi di discordia. La si- 
tuazione precipita quando il re viene 
assassinato: scoppia una guerra in 
cui tutti sono nemici di tutti. Sarà 
compito del protagonista riunificare 
il regno sotto le proprie redini. 

Questa introduzione, scritta su ele- 
ganti pergamene cd accompagnata 
da suggestive immagini, precede il 
vero e poprio inizio del gioco, insie- 
me alla presentazione dei personaggi 
(i Sassoni, i Normanni, le dame) ed 
alla scelta del protagonista aU’inter- 
no di una cerchia composta da quat- 
tro cavalieri; questi ultimi posseggo- 
no determinate caratteristiche per 
quanto riguarda il modo di coman- 
dare. la loro abilità nei tornei e nel 
gioco di spada. 

Una volta terminata la parte preli- 
minare. vediamo il ritratto del nostro 
campione sullo sfondo dell'isola bri- 
tannica. L'immagine è di grande ef- 
fetto coreografico perchè al mare che 
circonda l'isola è impresso un movi- 
mento molto realistico. Sulla sinistra 
dello schermo troviamo, in un trafi- 
letto. l'indicazione dei crediti, dell'in- 
troito mensile e del mese dell'anno in 
cui ci troviamo. 

Ogni “mossa" del giocatore corri- 
sponde al periodo di tempo di un me- 
se durante il quale aumenteranno i 
nostri crediti. 

Successivamente compare la carti- 
na geografica deU’Ingh il terra suddi- 
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f in dallo sbarco in Italia della Commodore C ommodore Computer Club e il punto di rife- 
rimento di tutti gli utenti di C'M. Vie 20. C/16, Plus 4 ed ora di PC 10/20 
ed Amiga, 

Articoli didattici, recensioni e programmi istruttivi ed a basso costo 
hanno fatto di Commodore Computer Club la prima rivista 
italiana d’informatica. 

Ma, per 1 lettori, Commodore Computer Club non è solo rivista: è 
consulenza telefonica gratuita, software originale pubblicato a lato- 
re dalla stessa casa editrice, un ponte verso l'informatica "maggio- 
re" anche attraverso la collaborazione con le riviste sorelle "Perso- 
nal Computer " e Computer'. 

T per questa ragione che, anno dopo anno, aumenta il numero dei lettori che preferiscono ri- 
cevere la rivista in abbonamento invece di acquistarla in edicola. Ad essi l'editore riserva una 
serie di vantaggi esclusivi come: 

• un libro in omaggio da scegliere tra i titoli disponibili della collana I libri di Systems*; 
•l’uso di una linea telefonica speciale per richieste di consigli, e consulenza, il cui numero e le 
modalità d'uso verranno comunicate in forma riservata alla ricezione deHabbonamento; 
•un canone annuo particolarmente interessante di lire 40.000 per 11 fascicoli di Commodore 
Computer Club e di lire 35.IXX) per 1 1 fascicoli di Personal Computer; 

•l’esclusivo canone cumulativo di lire 65.000 per 1 1 fascicoli di Commodore Computer Club ed 
1 1 di Personal Computer. 

•uno sconto del 10% su tutti gli acquisti per corrispondenza dei prodotti software su disco o 
cassetta, fascicoli arretrati o libri della Systems senza limiti di quantità. 


• / 


titoli disponibili sono quelli reclamizzati sull'apposita pagina pubblicitaria "La libreria di Systems " 


n 


Inviatemi in omaggio il volume della collana i libri di Systems 

Registrate oggi stesso il mio abbonamento a □ Commodore Computer Club (Lire 40.000) 

□ Commodore Computer Club+ Personal Computer (Lire 65 000) 

□ Desiderando ricevere le copie ordinate con la massima urgenza, accludo assegno bancario n.ro 

Ban ca per lire voi intestato. 


C: Contentandomi dei normali tempi postali ho inviato oggi stesso l'importo di lire a mezzo C/C postale N 37952207 

intestato a Systems Editoriale - V le Famagosta. 75 - 20142 Milano. 
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Ritagliare e spedire in busta chiusa regolarmente affrancata a Systems Editoriale - V ie Famagosta, 75 - 20142 Milano. 
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visa in elidono territori, di cui sei so- 
no occupati dai castelli dei conten- 
denti e dodici sono ancora da occu- 
pare. In un angolo sono ben eviden- 
ziate le scelte disponibili: 

• Partecipa ad un torneo 

• Pani per una conquista 

• Fai un raid (in un castello nemico ) 

• Raggnippa un esercito 

• ht mappa 

Tutte, tranne le ultime due. Tanno 
passare un mese di tempo se selezio- 
nate; inoltre, contemporaneamente 
alle nostre azioni, gli avversari si ar- 
ricchiscono. guadagnano un territo- 
rio al mese c combattono. Esaminia- 
mo ora quello che compete al gio- 
catore. 

La prima possibilità è quella di par- 
tecipare ad un torneo contro altri ca- 
valieri; al vincitore spetta la gloria 


oppure il territorio messo in palio dal 
perdente. La realizzazione grafica 
della sequenza è, a dir poco, spetta- 
colare: in particolar modo la vista 
dell'avversario che si avvicina caval- 
cando il destriero, con la lancia pun- 
tata. è impressionante. 

Per vincere lo scontro dobbiamo 
dirigere la lancia con il mouse, ope- 
razione. questa, veramente difficile; 
più facile è invece portare a termine 
un raid. trafiggendo con la spada tut- 
ti i guerrieri che si parano innanzi 
per bloccarci la strada del tesoro 
del nemico. 

Per conquistare un territorio si de- 
ve. per prima cosa, formare un eserci- 
to. comprando, con i propri averi, 
fanti, cavalieri e catapulte. Successi- 
vamente si sposta il mouse sulla scel- 
ta "Pani per una conquista" c si deci- 
de quale parte dell'esercito rimarrà a 
casa e quale, invece, partirà per la 


campagna. Per formare un'armata 
più potente bisognerà attendere che 
quella attualmente impegnata ritorni 
a casa; si sceglie quindi il territorio 
da invadere e. se in quest'ultimo è 
presente un avversario, ha luogo 
un combattimento. 

Possono capitare eventi imprevisti, 
come ad esempio la possibilità di in- 
tervenire nel salvataggio di una da- 
ma rapita dai Normanni, oppure l'at- 
tacco nemico al proprio castello. Il 
primo, se va a buon fine, dà modo di 
assistere ad una romantica scena d'a- 
more. mentre il secondo porta alla li- 
ne del gioco, se non si dispone di una 
numerosa guarnigione di difesa. 

Concludiamo il nostro discorso su 
"Defender of thè Crown”, sottoli- 
neando il fatto che la musica contri- 
buisce ancora di più a render parteci- 
pe il giocatore dell'epoca in cui si 
svolge il gioco. 



PER FORZA! 

NON PARLI LA SUA LINGUA! 


Finalmente un libro di 
circa 400 pagine di- 
verso dagli altri sinora 
usciti, un libro che fa 
capire come funziona 
veramente il tuo Com- 
modore 64 o 128. 

Butta via l assembler. con tutto il suo codazzo di numeri esadecimali e si- 
gle pseudo-mnemoniche! Impara anche tu 

IL VERO LINGUAGGIO MACCHINA OEL COMMODORE 64 

quello espresso da soli numeri, ciascuno dei quali ha un significato ben pre- 
ciso La lingua del Commodore 64 è formata da 151 numeri, di cui solo una 
ventina frequentemente usati e questo libro ti insegna il significato e l’uso di 
ciascuno di essi con centinaia di esempi che potrai immediatamente prova- 
re direttamente sul tuo Commodore senza alcuna particolare conoscenza o 
dispositivo 

Ti accorgerai quanto sia facile programmare direttamente in linguaggio 
macchina senza far ricorso ad ausili strani che finiscono solo per creare 
una gran confusione II libro contiene anche centinaia d« routine per le più 
vane applicazioni animazione, grafica etc e contiene numerose tabelle di 

estrema utilità 

Per ricevere il libro inviare un vaglia postale, un vaglia telegrafico o un asse- 
gno bancario di Lire 30 000 comprensive di IVA e spese postali, intestato a 

Società Editrice • Linguaggio Macchina » s.a.s. c/o Studi Professionali 
Centralizzati. Corso Garibaldi. 95 - 82100 Benevento 


CétAffO 


IL VERO 


LINGUAGGIO MACCHINA 
DEL COMMODORE 64 
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Il futuro dell’utente Commodore 


Un'intervista con Michele Di Pisa, della 
Systems Editoriale, responsabile della nuo- 
va impostazione tecnica delle riviste di 
informatica 

I)/ Ultimamente il contenuto delle rivi- 
ste della Systems Editoriale sembra 
cambiato. Qual è il motivo? 

R/ Una casa editrice specializzata, 
qual è la nostra, non può restare in- 
sensibile alle variazioni del mercato, 
inteso questo sia come reale anda- 
mento delle vendite software e hard- 
ware sia come aspettative degli uten- 
ti. In questi ultimi anni il parco mac- 
chine. dal settore tipicamente profes- 
sionale cui erano destinate, ha inte- 
ressato anche l'utenza cosiddetta do- 
mestica con rapidità forse eccessiva. 
Alcuni hanno parlato di boom (ini- 
zio anni 80) e. ora. di riflusso. Ma 
non è esattamente una questione di 
moda che determina il minor volume 
di vendite che oggi di riscontra. 

I)/ A che cosa, dunque, attribuisce la 
stasi del mercato che sembra interes- 
sare il mercato dcH'home computer? 

R/ Anzitutto al fatto che l'utente è 
maturato con una rapidità maggiore 
di quanto ci si aspettasse. Giusta- 
mente ci si è accorti che un computer, 
benché potente, senza software non 
serve a nulla; contemporaneamente 
ci si é accorti che imparare a pro- 
grammare non è così semplice, come 
sembrava promettere certa pubblici- 
tà. In breve l'utente "medio" si è ritro- 
vato in casa un calcolatore capace so- 
lo di fare videogame e lo ha quindi 
abbandonato. La successiva diffu- 
sione di riviste di informatica, su sup- 
porto magnetico in particolare, ha ri- 
svegliato il suo interesse, ma spesso 
rimane deluso a causa del tipo di 
software facilmente rintracciabile, 
vale a dire videogiochi. Ecco dunque 
che la Systems Editoriale propone, 
nelle sue riviste, articoli "alternativi" 
più idonei a sviluppare un discorso 
informatico in senso lato. 

In secondo luogo, la potenza offer- 
ta dai moderni computer a 16 bit e. 
soprattutto, l'attuale basso prezzo 
d'acquisto di tali macchine, ha risve- 
gliato l'interesse sia del "vecchio" u- 
tcnte. abituato alla modesta potenza 
di un otto bit sia di coloro che. fino- 
ra. hanno preferito rinviare l'acqui- 


sto di un computer. Entrambi gli u- 
tenti sono comunque molto prudenti 
e preferiscono documentarsi parec- 
chio prima di effettuare l'acquisto 
dell’hardware. 

I)/ In che modo la Systems Editoriale 
pensa di risolvere i problemi degli u- 
tenti (reali o potenziali che siano)? 

R/ Anzitutto non possiamo dire che 
risolviamo i problemi, e ciò non per 
falsa modestia ma perchè la casistica 
delle esigenze è talmente ampia che è 
impossibile essere esaurienti su te- 
mi specifici. 

Perciò che riguarda le varie fasce di 
utenza, comunque, possiamo dire 
che la rivista "Computer" si rivolge ai 
professionisti e alle piccole aziende 
che intendono fare il “gran passo" in- 
troducendo un elaboratore nello stu- 
dio professionale o nell'azienda. 
Grazie ai famosi benchmark su ap- 
parecchi in prova, a volte addirittura 
impietosi. "Computer" si rivolge an- 
che a coloro che già possiedono un 
computer professionale e desiderano 
aumentarne la capacità produttiva 
acquistando un nuova unità di me- 
moria. una stampante, un monitor, 
un secondo terminale e così via. 

Per quanto riguarda la fascia "bas- 
sa", (e in Italia significa quasi esclusi- 
vamente Commodore) la Rivista 
"Commodore Computer Club" si ri- 
volge. ma non esclusivamente, al 
pubblico giovane e giovanissimo 
grazie all'elevato contenuto didattico 
di primo (Basic) e secondo livello 
(Linguaggio Macchina). Un conti- 
nuo dialogo con i lettori rende profi- 
cuo ogni articolo della rivista. 

D/ Non le pare che tra le due fasce ap- 
pena menzionate vi sia un vuoto? 

R/ Recenti inchieste di mercato, con- 
dotte presso utenti di computer do- 
mestici. hanno confermato il deside- 
rio di evolversi verso applicazioni e 
sistemi superiori. 

Un'elevatissima percentuale di uten- 
ti desidera passare a macchine più 
sofisticate ma. contemporaneamen- 
te, sente l'esigenza di informarsi di 
più prima di procedere all'acquisto. 
Questa stessa fascia di utenza, inol- 
tre, desidera entrare in possesso di 


software "professionale" e, comun- 
que. diverso dal solito videogame. La 
rivista "Personal Computer" è nata 
proprio con il proposito di soddisfare 
tali esigenze e ritiene di svolgere il 
compito non solo pubblicando soft- 
ware di un certo impegno ma, soprat- 
tutto. proponendo articoli di infor- 
mazione generale atti a mettere in lu- 
ce le caratteristiche più salienti delle 
macchine che si intendono acquista- 
re. La rubrica Ms-Dos. ad esempio, è 
pubblicata proprio per questo moti- 
vo. Tra breve verranno affrontate le 
tematiche relative a confronti tra va- 
rie macchine a 16 bit, recensioni di 
software, consulenze sul corretto uso 
di programmi professionali c tutto 
quel bagaglio di informazioni utili 
per definire la scelta dell’hardware. 
Contemporaneamente la parte della 
rivista dedicata al software (da digi- 
tare o da richiedere su supporto ma- 
gnetico) accontenta l’utenza che in- 
tende restar fedele alla macchina che 
già possiede. 

I)/ A chi è affidato il compito di sovrin- 
tendere agli argomenti Commodore? 

R/ La rivista "Commodore Compu- 
ter Club" è da tempo sotto la direzio- 
ne di Alessandro de Si mone; recente- 
mente si è deciso di affidargli anche 
la sezione Commodore di "Personal 
Computer" sia per evitare sovrappo- 
sizioni di argomenti sulle due testate, 
sia per garantire il mantenimento 
della forma "colloquiale" alla quale è 
abituato il lettore di "Commodore 
Computer Club" che desidera evol- 
versi verso l’alto. Possiamo affermare 
con giusto orgoglio che l'utente Com- 
modore non ha bisogno di acquistare 
altre riviste oltre quelle edite dalla 
Systems Editoriale. L'ultimo handi- 
cap era infatti costituito dalla caren- 
za di software proposto su dischetto, 
ma recentemente, con "Directory", 
anche questo scoglio è stato superato 
e procurarsi buon software a basso 
prezzo non è più un sogno. 

D/ Che consigli, quindi, può dare all’u- 
tente Commodore? 

R/ Systems Editoriale, naturalmente, 
per non aver bisogno d'altro per il 
suo computer, presente e futuro. 
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GIOCHI D AZZARDO 

QUALSIASI COMPUTER 

Un ritardo promettente 


Se i numeri ritardatari del Lotto decidessero 
di uscire insieme, darebbero ragione ad 
una delle numerose teorie nate nel 
tentativo di sbancare lo Stato... 


di Saltatore ih Guida 



^fel gioco del Lotto sono 90 i nu- 
meri che possono essere estratti su o- 
gni ruota; quindi esistono 90*89/2= 
4005 ambi diversi che si possono for- 
mare con i predetti numeri. 

Da un attento esame delle ultime e- 
strazioni rileviamo che tra i numeri 
estratti, su una determinata ruota, fi- 
gurano almeno due numeri compresi 
tra 1 e 49. Nel caso in cui ciò non av- 
venga. il ritardo massimo, per una 
coppia di tali valori, è in genere di ap- 
pena due estrazioni. Possiamo perciò 
limitarci, nella trattazione che segue, 
a considerare i soli numeri da 1 a 49; 
il numero degli ambi si riduce cosi 
a 49*48/2= 1176. 

Volendoli giocare al Lotto occorro- 
no 1176 bollette, una per ogni ambo; 
difficilmente però troveremo un im- 
piegato del banco Lotto disposto a 
compilarle! 

Da qui la necessità di ricorrere ad 
un sistema, a “garanzia" dell'ambo, 
grazie al quale i numeri da 1 a 49 ven- 
gano distribuiti in 56 gruppi, ciascu- 
no di sette numeri (onde il nome di 
SETTUPLA dato ad un gruppo) in 
modo che siano presenti tutti i 1176 
ambi, nessuno dei quali è ripetuto c 
nessuno escluso. 

Poiché è possibile giocare sette nu- 
meri su una sola bolletta (non tutti 
sanno che su una stessa bolletta pos- 
sono essere messi in gioco fino a 20 
numeri!), basterà compilarne 56. una 
per ogni settupla, per avere la garan- 
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zia dell'ambo nel caso della sortita, 
su una determinata ruota, di due nu- 
meri compresi tra 1 e 49. 

Non volendo, ovviamente, giocare 
tutti i 56 gruppi, ricorriamo al pro- 
gramma “AMBII 1-49)" che permette 
la ricerca di quelle settupleche tarda- 
no a dare l'ambo su una o più 
ruote. 


Come usare i Ire programmi 

Prima di iniziare qualsiasi opera- 
zione è indispensabile salvare su di- 
sco come file sequenziale le 56 settu- 
ple costituenti il sistema: a ciò c abili- 
tato il programma “SETTUPLE 
PRG" e tale operazione va effettuata 
una sola volta. 

Riconosciamo che, in effetti, sareb- 
be più... “informatico” determinare 
l’algoritmo che genera i numerosi va- 
lori (cioè le scttuple) contenuti nei 
DATA; ne approfittiamo per girare il 
problema a qualche lettore volente- 
roso che riesca nell'intento tenendo 
comodi quanto è stato detto in prece- 
denza (magari non limitandosi solo 
ai primi 49 numeri). 

Sullo stesso disco occorre poi salva- 
re le estrazioni che si vogliono esami- 
nare. per esempio tutte quelle avve- 
nute nel 1986. utilizzando il pro- 
gramma “ESTRAZIONI''. 

Di settimana in settimana, serven- 
dosi. appunto, di “Estrazioni”, salve- 
remo tutte quelle avvenute. 

Dando il Run al programma " AM- 
BIO -49)”, infine, il computer legge da 
disco, e memorizza, le 56 settuple ( re- 
gistrate grazie a SETTUPLE PRO). 
Quindi è possibile scegliere tra le se- 
guenti opzioni: 



U: uscita programma 
E: esame estrazioni 
V: settuple su video 
S: settuple su stampante. 

Con la seconda opzione viene 
chiesto quante e quali estrazioni 
(memorizzate in precedenza su di- 
sco) si vogliono esaminare e sotto- 
porre ad elaborazione. E* quindi 
necessario stampare a parte la di- 
rectory o. comunque, prenderne 
nota, prima di far partire il pro- 
gramma. 

Il numero massimo di estrazioni 
che si possono esaminare, in una 
sola volta, c 1(X). ma variando op- 
portunamente il dimensionamen- 
to del vettore E$. si potrebbero esa- 
minare. sempre in una sola volta, 
tutte le estrazioni avvenute fino 
ad oggi. 

Dopo aver introdotto anche le 
date delle estrazioni, nella forma 
giorno-mese-anno, viene chiesto il 
numero delle ruote interessate: se 
questo è minore di IO, occorre pre- 


cisare quali, introducendo 1 per la 
ruota di Bari, 2 per la ruota di Ca- 
gliari e così via. 

Il computer procede, quindi, alla 
eliminazione delle settuple che 
hanno già dato l'ambo su una delle 
ruote prescelte. 

Sul video apparirà, infatti, il nu- 
mero delle settuple che ancora non 
hanno dato l'ambo, la ruota che è 
stata esaminata, il totale delle e- 
strazioni esaminate e quello anco- 
ra da esaminare. 

E' chiaro che aumentando il nu- 
mero delle ruote deve diminuire il 
numero delle estrazioni da esamina- 
re in una sola volta, altrimenti non 
resteranno gruppi che tardano a dare 
l'ambo. 

Se i tempi di elaborazione vi sem- 
brano lunghi, compilate il program- 
ma con il Pet/Speed. l'Austrocompi- 
ler o altri compilatori: i risultati, in 
termini di tempo, vi risparmieranno 
noiose attese. 

Quanto si può vincere? 

Diciamo infine qualcosa sulle som- 
me che si possono vincere: non sono 
alte ma, in compenso, si possono rea- 
lizzare spesso. 

Giocando una settupla su una de- 
terminata ruota c tenendo conto che 
con serte numeri si possono ottenere 
21 ambi, 35 temi, 35 quaterne e 21 
cinquine, si ha una vincita pari a: 

1 1 .90 volte la posta per l'ambo; 1 2 1 .42 
volte la posta per il temo; 2285,7 1 vol- 
te la posta per la quaterna ed infine 
47619,04 volte la posta per la cin- 
quina. 

Coloro che hanno difficoltà a rin- 
tracciare la “storia” delle estrazioni 
del Lotto possono mettersi in contat- 
to con fautore. Ah. dimenticavamo: 
BUONA FORTUNA! 


100 

110 

RE n 

• 


A fi B 1(1-493 

*** 

120 

REM 


AUTHOR 

* * * 

130 

REN 


SALUATORE 

*** 

140 

REH 


DI GUIDA 


150 

160 

REH 

• 

*** 

0823/463775 

*•« 

170 

Din 

0) 

S':56,7.i,riLici0,5:>, 

ESSC10 


183 PRINT”CCLEAR!J ” : POKE 53880,0 
: PDKE 53281 , 0 : PR I NT ”C PUS 3 C G 
I ALLO 3 ATTENDERE PREGO! CRUOF 
FD" 

130 OPEN 1,B,0, "SETTUPLE, S, R” 

200 FOR 1-1 TO 58 : FOR J-l T0 7: 

INPUTttl , SC I , J3 : NEXTJ : NEXTI 
210 CLOSE 1 : PR I NT ”C OLEARI ” 
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220 GOTO 560 

230 PR I NT ”C CLEAR3 ” 

240 U-0.-T-0 

250 FOR 1-1 TO 56 : FOR X-l TO 5: 
FOR J-l TO 7 

260 IF 5*:i,J)-0 THEN 340 
270 IF SCI,J)-UCX) THEN K-K+l 
280 NEXTJ 
290 NEXTX 

300 IF U-l AND K< 2 THEN GDSUB 3 
00: GOTO 340 

310 IF U-2 AND K< 2 THEN GOSUB 9 
00: GOTO 340 

320 IF K<2 THEN T-T+l : GOSUB 470 

330 IF K>-2 THEN GOSUB 450 

340 K-0:NEXTI 

350 GOSUB 490 

360 IF RS-1 THEN 070 

370 GOTO 560 

300 T-T + l 

390 IF T/ll<> INTCT/11 3 THEN 420 
400 GET G$ : I F GS< > ” ” THEN 400 
410 PR I NT "C OLEARI ” : GOTO 420 
420 FOR J-l TO 7 : PR I NTSC I , J ) ; 
430 NEXTJ : PRINT : PRINT 
440 RETURN 

450 FOR J-l TO 7:SC I ,J3-0:NEXTJ 
460 RETURN 

470 PR I NT ”C RUS 3 NUMERO SETTUPLE 
NON EL IMI NATE CRUOFF3C2 DOWN 
3”T:PRINT”C4 UP3* 

400 RETURN 

490 IF Ul- 1 THEN GET G$:IF G$<>” 
" THEN 490 

500 PR I NT "C OLEARI ” : PRINT ”C4 DOU 
NIC RUS3RESTANO : C RUOFF3 ”T"SE 
TTUPLE IF T-0 THEN GOTO 9 
30 

510 IF U-l OR UJ-2 THEN Y-RCNR3 
520 PRINT "CUPI £20 RIGHT3 ’T 1 RUO 
TA ESAMI NATA” 

530 PR INT : PRINT ”TOT . ESTR . "TE ; 
540 PR I NT ”C 4 RIGHT3ESTR . DA ESA 
MTNARE”EE: PRINT 
550 RETURN 

560 PR I NT : PRI NT ”C 2 DOUN3 C RUS3U) 
USCITA PROGRAMMA: RUOFF3”:P 
R INT ”C 2 DOU1N3C RUS3E3 ESAME 
ESTRA2 1 ON I C RUOFF3 ” 

570 PR I NT ” C 3 DOUN3 C RUS3U ) SETTU 


PLE SU UIDEOCRUOFF3 ” 

580 PR I NT ”C2 DOUN3CRUS35) SETTU 
PLE SU STAMPANTE” 

590 GET H$:IF H$<>”U” AND H$<>” 
E” AND H$<>”U” AND H$<>”S” 
THEN 590 

600 IF HS- ”U” THEN PRINT ”CCLEAR 
3 " : PRINT”C 3 DDUN3 C RUS3 BUONA 
FORTUNA! £RUOFF3”:END 
610 IF HS-”E” THEN GOTO 640 
620 IF HS-”U” THEN U-l : T-0 : RS-0 
: PRINT ”£CLEAR3 ” : GOTO 250 
630 IF H$-”S” THEN U-2 : T-0 : RS-0 
: PRINT”CCLEAR3 ” : GOTO 250 
640 PR INT ”C CLEAR3 ” : PRI NT ”QU ANTE 
ESTRAZIONI?”: PRI NT: PRI NT” 
”NE : PR I NT ”C 2 UP3”: INPUT NE: 
EE-NE: PRINT”CCLEAR3 ” 

650 FOR L-l TO NE : PR I NTL ”■ ESTRA 
ZIONECG-M-A) ”: PRINT : INPUT E 
SSCL) : PRINT"CCLEAR3 ” : NEXTL 
660 PRINT”CCLEAR3 ” : PRI NT "QUANTE 
RUOTE? ” : PR INT : PR I NT ” ”NR:P 
RI NT”£ 2 UP3”: INPUT NR : PRI NT 
670 IF NR-10 THEN FOR H-l TO NR 
: RCH3-H: NEXTH: PR INT ”C CLEAR3 
” : GOTO 700 

680 PRINT”OUALI?” : IF NR-1 THEN 
PR INT”CUP3C4 RIGHT3E?” 

690 PRINT: FOR H-l TO NR : PR I NT ” 
”RCH3 :PRINT”C2 UP3”: INPUT R 
CH) : NEXTH: PRINT”CCLEAR3” 

700 FOR L-l TO NE 
710 EE-EE-1 : TE-TE+1 
720 OPEN 1,8,0, ”0: ”+ES$ C L ) + ” , S , 
R” 

730 FOR Y-l TO 10: FOR X-l TO 5 
740 INPUTttl .MUCY.X) 

750 NEXTX :NEXTY 

760 CLDSE 1 

770 FOR Y-l TO 10 

780 FOR H-l TO NR 

790 IF YORCH) THEN GOTO B10 

800 GOTO 830 

B10 NEXTH 

820 GOTO 870 

830 FOR X-l TO 5 

B40 UCX)-MU(Y.X) 

850 NEXTX 

B60 RS-1: GOTO 240 
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870 NEXTY 
880 NEXTL 
880 GOTO 560 

800 T-T+l:OPEN 1,4: FGR J-l TO 7 
: PRINT#1 .SCI , J) ; : NEXTJ :PRIN 
T # 1 , ” ”CHRS ( 13 ) 

810 CLOSE 1 
880 RETURN 
330 PRINT: PRINT 

840 PRINT: PRINT”OGNI SETTUPLA H 
A DATO": PRINT: PRINT”ALMENO 
UN AMBO! ”: END 


100 REM *•* SETTUPLE PRG ••• 
110 : 

180 : 

130 PRINT" CCLEAR3 " : PDKE 53880,0 
: POKE 53881,0 

140 PRINT-CRUSXGIALLO:) INSERIRE 
DISCO NEL DRIUE! CRUOFFD” 
150 DIM SC57.7) 

160 1-1 

170 FOR X-l TO 388 
180 J-J+l 
180 READ A 

800 IF J-7 THEN SC I , J )-A : I -I +1 : 

J-0 

810 SCI.JD-A 
880 NEXTX 

830 OPEN 1,8, 1, "SETTUPLE ,S,W” 
840 FOR 1-1 TO 56: FOR J-l TO 7 
850 PRINT#1 , S( I , J) 

860 NEXTJ : NEXTI 
870 CLOSE 1 

880 DATA 1,8,3,4,5,6,7,8,3,10,1 

1.18.13.14.15.16.17.18.18.8 
0,81,88,83,84,85,86 

830 DATA 87,88,83,30,31,38,33,3 

4.35.36.37.38.38.40.41.48.4 
3,44,45,46,47,48,48 

300 DATA 1,B, 15, 88,89,36, 43, 1,3 
,17,85,33,41,43,1,10,18.88, 
30,33,48,1,11,81,84,34 
310 DATA 37,47,1,18,16,87,31,48 
.46,1,13,18,83,35,40,45,1,1 

4.80.86.38.38.44.8.8 

380 DATA 81,87,33,33,45,8,8,16, 

83.30.37.44.8. 10.18.86.34.4 
2.43,8,11, 80 , 88 , 31 , 40 


330 DATA 43,8, 18, 15,85,35,38,48 
,2,13,17,88,38,36,47,8,14,1 
3,84,83,41,46,3,8,80 
340 DATA 85,30,48,47,3,3, 15,88, 

34,40,46,3, 10, 17, 24, 31, 3B, 4 

5,3,11,13,87,35,36,44 
350 DATA 3,18,81,83,38,41,43,3, 

13,16,86,83,33,43,3, 14, 18,8 
8,33,37,48,4,8, 13,83 
360 DATA 34,38,43,4,3,81.86,31, 

36,48,4,10,16,88,35,41,47,4 
.11,18,85,38,33,46,4 
370 DATA 18,80,88.83,37,45,4, 13 
,15,84,33,48,44,4,14,17,87, 
30,40,43,5,8, 18 , 8B , 31 
380 DATA 41,44,5,3,80,84,35,33, 
43,5.10,15,27,38,37,49,5,11 
, 17. 23, 83, 48, 4B, 5, 18 
330 DATA 19,86,33,40,47,5, 13,81 
, 88 , 30 , 3B , 46 , 5 , 1 4 , 16 , 85 , 34 , 
36,45,6,8,17,86,35,37 
400 DATA 46,6,3,19,88,38,42,45, 
6,10,81 ,85,23,40,44,6, 11 , 16 
.88,33,38,43,6,12,18 
410 DATA 84,30,36,49,6,13,80,87 
.34,41,48,6,14,15,23,31,33, 
47,7,8, 16,84,38,40,48 
480 DATA 7,3,18,87,83,38,47,7,1 
0 , 20 , 83 , 33 , 36 , 46 , 7 , 1 1 , 1 5 . 86 
.30,41 ,45.7, 18, 17,88 
430 DATA 34,33,44,7,13,19,85.31 
,37,43,7,14,81,88,35,48,43 

100 REM *** ESTRAZIONI *** 

110 : 

180 DIM MUC 10,5? 

130 PRINT"CCLEARD ” : POKE 53880,0 
: POKE 53881, 0: PRINT"CGIALLO 
1DATA DELL’ESTRAZIONE CG-M- 
AV 

140 PRINT: PRINT "DA SALUARE SU D 
I SCO " : PR I NT : I NPUT ES 
150 PRINT ”C OLEARI ” : FOR 1-1 TO 1 
0 : PRINTI ”■ RUOTA" : PRINT: FOR 
J-l TO 5: INPUT MUCI,J):NEXT 
J : PRINT : NEXTI 

160 OPEN 1.8, 1, ”0: "+E$+",S,UI” 
170 FOR 1-1 TO 10: FOR J-l TO 5: 

PR I NT* 1 , MUC I , J ) : NEXTJ : NEXT I 
180 CLOSE 1 
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C 64 - C 128 


Peek, Poke & Sys 


Una nuova iniziativa per conoscere più 
a fondo il fedele amico elettronico 


a cura di Michele Maggi 



O^ome lutti i lettori avranno certa- 
mente notato, da qualche numero 
non compare più su C.C.C. la rubrica 
“Una riga". 

Ciò è dovuto ai risultati della ormai 
famosa inchiesta svolta tempo fa 
presso i nostri lettori. 

Abbiamo però deciso di dedicare 
quelle pagine ad argomenti richiesti 
da più parti. 

Inizia cosi, da questo numero, una 
nuova rubnca(non necessariamente 
mensile)che tratterà non più di mini- 
listati da una sola riga, ma di “Peek 
Poke & Sys'*, vale a dire dello studio 
di particolari locazioni di memoria, 
di puntatori, di vettori e di indirizzi 
di routine del Sistema Operativo. 

Ciascuna delle locazioni che ver- 
ranno esaminate sarà analizzata in 
dettaglio c ne verrà spiegata la fun- 
zione. eventualmente con l’ausilio di 
qualche programmino dimostrativo. 


I n po' di terminologia 

Considerando che la maggior parte 
dei lettori interessati a questa rubrica 
sarà costituita da principianti, è op- 
portuno. prima di procedere all’ana- 
lisi delle locazioni di memoria, chia- 
rire che cosa si intende per vettori. 
Peek. Poke. Sys e Sistema Operativo 
(SO). 

Ogni locazione di memoria (byte) 
può contenere un valore compreso 
tra 0 e 255 e in funzione di ciò che 
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ALLARME ROSSO (P^ * principianti) 


Nel digitare righe di programma ba- 
sic che contengono istruzioni DATA, 
è piuttosto facile incorrere in errori di 
digitazione. Supponiamo che un'ipo- 
tetica linea basic numerata con 1200 
debba contenere i tre valori: 123. 
456, 789. Ecco alcuni esempi di erro- 
ri più frequentemente commessi: 

1200 DATA. 123,456.789 

C'è una virgola dopo la parola 
“DATA". I dati letti dal computer so- 
no. in questo caso, quattro. 0. 123, 
456, 789. Se, infatti, non figura alcun 
carattere dopo l'istruzione DATA, au- 
tomaticamente viene assunto il valo- 


re nullo (0). 

1200 DATA 123.456.789. 

Jn questo caso, dopo il numero 
789, il computer, grazie alla presen- 
za della virgola erroneamente esen- 
ta, “crede" che ci sia un altro valore 
e. non trovandolo, lo assume come 
nullo (0). 

1200 DATA 1234.56.789 
La virgola è posizionata male, vale 
a dire dopo il carattere “4" e non 
dopo il carattere "3". Il computer non 
può sapere se il valore esatto è 123 
oppure 1234 e individuare un errore, 
in questo caso, risulta piuttosto 


ontiene. c della posizione che occupa 
nella memoria del calcolatore, può a- 
vere. o meno un ruolo importante. 

11 C/64, come tutti i computer, ha 
due tipi di locazione: Rom e Ram. 

I byte che formano la memoria 
Rom non possono essere modificati 
in quanto sono riservati al S.O. (vedi 
oltre) c ad altre routine; le locazioni 
Ram, invece, sono in parte necessarie 
al corretto funzionamento del com- 
puter, e in parte sono a disposizione 
dell'utente per la scrittura di pro- 
grammi: possono quindi essere modi- 
ficate. 

E’ intuitivo che se vengono modifi- 
cate locazioni Ram necessarie al 
computer per il suo corretto funzio- 
namento. possono verificarsi ano- 
malie che spesso portano ad un 
"crash" del sistema: in questi casi, 
pur non provocando alcun danno 
materiale al calcolatore, costringono 
a spegnere e riaccendere l'apparec- 
chio, perdendo tutto ciò che fino a 
quel momento era stato battuto. 

D’altro canto è proprio la modifica 
di certe locazioni di memoria che 
consente di creare interessanti effetti; 
il principale scopo di questa rubrica 
è, appunto, quello di modificare con 
criterio alcune locazioni in modo da 
ottenere risultati utili e interessanti. 

Con il termine "Vettore" (ma solo in 
linguaggio macchina) si intende una 
coppia di byte (generalmete in Ram) 
che indicano la locazione di memo- 
ria da cui parte una certa routine del 
S.O. che è "puntata" dal contenuto 
del primo byte più il valore del secon- 


do byte della stessa coppia moltipli- 
cato per 256. 

Nel C/64, ad esempio, la routine di 
List, allocata da 42778 (in notazione 
csadecimale: SA71A) in poi. è "pun- 
tata" dal vettore costituito dalle loca- 
zioni di memoria 774 c 775 che con- 
tengono. rispettivamente, i valori 26 e 
167. 

Per capire quale indirizzo stia pun- 
tano un vettore, dobbiamo prelevare 
il valore del primo byte (26) e som- 
marlo al valore del secondo (167) 
moltiplicato per 256; quindi: 

26+ 167*256 = 42778 

ottenibile con la seguente istruzione: 

PRINT PEEK (774)+PEEK (775) 
*256 

Pcck e Poke sono, appunto, le istru- 
zioni Basic che permettono di intera- 
gire direttamente con le celle di me- 
moria del C/64. 

L'istruzione Peek serve per leggere 
il contenuto di una qualsiasi locazio- 
ne di memoria, mentre Poke. al con- 
trario. serve per scrivervi un valore 
(purché si tratti di una locazione di 
ambito Ram). 

La sintassi di Peek è molto sempli- 
ce ed c la seguente: 

PRINT PEEK (LOG) 

dove LOC è la cella di memoria (va- 
lore compréso tra 0 e 65535, pena "II- 
legal quantity error") di cui vogliamo 


conoscere il contenuto. La sintassi di 
Poke è la seguente: 

POKE LOC, VAL 

in cui LOC è la locazione in cui vo- 
gliamo scrivere il valore VAL (com- 
preso tra 0 e 255, pena “Illegal quan- 
tity error"). 

Ci teniamo a sottolineare che non è 
possibile modificare le locazioni che 
appartengono alle Rom; volendo far- 
lo. infatti, e rileggendo, mediante 
Peek, la stessa locazione, ritroverem- 
mo il valore originario e non quello 
scritto da noi. 

La sintassi dell'istruzione SYS è 
ancora più semplice: 

SYS (IND) 

ove IND è l'indirizzo della cella di 
memoria di partenza di un program- 
ma in Linguaggio Macchina (L.M.) 
che svolge una certa funzione. 

Il S.O. non è altro se non una "rac- 
colta " di programmi in L.M. che. ol- 
tre a svolgere funzioni necessarie al 
C/64, possono, con alcuni accorgi- 
menti. essere chiamate tramite SYS 
per particolari scopi. 


Potando qua e là 

Passiamo ora a qualche esempio 
pratico di facile comprensione. 

19: Input senza punto di domanda 

Una locazione che consente un ef- 
fetto interessante è la n. 19 che funge 
da fiag (deviatore elettronico) per l'i- 
struzione INPUT. 

Come tutti sanno, quando il com- 
puter incontra un'istruzione INPUT, 
arresta il programma finché l’utente 
non risponde alla richiesta. 

L'Input è caratterizzato dalla pre- 
senza di un punto interrogativo, 
quando ci si aspetta un dato dalla ta- 
stiera. che invece scompare quando 
l'Input avviene da disco o nastro. 

Per ottenere un Input privo del 
punto interrogativo è sufficiente "po- 
kare" il valore 64 nella locazione 19. 
prima di far eseguire l'Input, per poi 
"ripokare" il valore 0 (standard) ap- 
pena eseguito l’Input; esempio: 
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IO POKE 19,64 

20 INPUT “SCRIVI QUALCOSA” 
;A$ 

30 POKE 19,0 


186: Periferica e Eilename 

La locazione 186 contiene il valore 
dell’ ultima periferica in dialogo: tra- 
mile la seguente istruzione: 

PRINT PEEK (186) 

sarà possibile, in funzione del nume- 
ro riportato, verificare quale sia stata 
l'ultima periferica usata. Il valore sa- 
rà certamente uno dei seguenti: X (op- 
pure 9) per il drive. 4 (oppure 5) per la 
stampante. 6 per il plotter e cosi 
via. 

Con fistruzione SYS 62913, poi. sa- 
rà possibile visualizzare l'ultimo no- 
me con cui si è caricato o salvato 
un file. 


211/214: Indirizzamento cursore 

Le locazioni 211 e 214 contengono 
fattuale posizione del cursore video 
in termini di colonna e riga. 

Per indirizzare il cursore in un 
punto particolare dello schermo sarà 
opportuno pokare in 211 il valore 
della colonna e in 214 il valore della 
riga in cui vogliamo indirizzare il 
cursore; quindi comunicarlo al S.O. 
con SYS 58640. 

Esempio: 

IO POKE 21 1,10: POKE 214,9 
20 SYS 58640 

30 PRINT “COLONNA 10 E RIGA 
9“ 


650: Autorepeat dei tasti 

Con questa arcinota poke si ottiene 
l’autorepeat su tutti i tasti: 

POKE 650.128 


199: Reverse 

Ecco una Poke che permette di vi- 


sualizzare un messaggio in reverse: 

POKE 199,I:PRINT “REVERSE 
ON” 


653: Elag per tasti Shift. Ctrl, C= 

Questa locazione viene modificata 
automaticamente dal S.O. in funzio- 
ne della pressione dei tasti SHIFT. 
C= e CTRL 

10 PRINT P E E K( 653 ) :G OTO 10 

Provate a premere questi tasti, an- 
che insieme, per vedere come cam- 
biano i valori 

Stoplist e protezioni 

Molte volte, mentre si esamina un 
listato, sarebbe utile poter fermare lo 
scroll per poi riprenderlo dallo stesso 
punto senza dover ricorrere al tasto 
STOP. 

Questa miniroutine, alterando il 
vettore di List (774-775) consente di 
sospendere lo scroll di un listato fin- 
ché il tasto C= è premuto. 

10 FOR 1=0 TO II 
20 READ A: POKE 8300+ I,A 
30 N EXT: POKE 775.32 
40 DATA 72,173,141,2,201,2 
50 DATA 240,249,104.76,26.167 

Modificando ulteriormente il vetto- 
re di List è possibile inibire o modifi- 
care l'indirizzo della routine List in 
modo tale che. chiedendo il listato, 
l'effetto che ne risulta sia diverso dal 
solito (c spesso letale...). 

POKE 774.226:POKE 775.252 - Re- 
set 

POKE 774.68: POKE 775.166 - New 
POKE 774.7:POKE 775.168 - Syn- 
lax Error 

POKE 774.0 - List dei soli numeri 
POKE 22.35 - List senza numeri 
POKE 818.32 - Disabilita Save & 
Load 


646: Colore cursore 


Modificando la locazione 646 è 
possibile cambiare colore ai cursore 
senza ricorrere ai caratteri speciali. 

10 FOR 1=0 TO 15 
15 POKE 646,1 

20 PRINT “COLORE CURSORE” 

;i 

30 NEXT 


Restore e protezioni 

Il vettore 792-793 punta all'indiriz- 
zo da cui parte la routine che viene 
chiamata alla pressione del tasto RE- 
STORE; modificandone i valori si 
possono ottenere effetti utili per le 
protezioni. 

POKE 792,226: POKE 793,252 - Re- 
set 

POKE 792.7:P()KE 793,168 - Syn- 
ta\ Error 

POKE 808,225 - Disabilita RUN/- 
STOP 


Abbiamo visto insieme una ventina 
di esempi che, anche se non hanno u- 
na utilità intrinseca, possono rivelar- 
si molto comodi se inseriti in pro- 
grammi complessi. 

I lettori sono, come sempre, invitati 
a partecipare inviando su carta o 
supporto magnetico le loro “scoper- 
te" che. in caso di pubblicazione, ver- 
ranno compensate con prodotti Sy- 
stems (cassette, libri, arretrati...). 

Le collaborazioni vanno indirizza- 
te a: 


Rubrica Pcek & Poke 
Commodore Computer Club 
Systems Editoriale 

V.le Eamagosta, 75 
20142 MILANO 
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Il giardino elettronico 


Non angustiatevi se vivete in una città 
povera di verde: ora potrete crearvi 
un giardino personale con il C/64 


di Danilo Tona 


.1 ranquillizzatevi. non si traila di 
un corso di giardinaggio, ma sempli- 
cemente di un breve programma che 
consente di disegnare alberi c fiori ri- 
correndo ad una procedura ricor- 
siva. 

Ricordate quel programma, appar- 
so sul n.27 della rivista, che permette- 
va di creare splendide figure utiliz- 
zando le curve di Peano? 

Ebbene, dopo averlo scritto mi 
chiesi se non sarebbe stato possibile 
realizzarne uno che disegnasse curve 
altrettanto belle utilizzando strutture 
ad albero. 

Dopo vari rinvìi, dovuti a scarsità 
di tempo da dedicare al progetto, ec- 
co finalmente pronto questo “sfoma- 
vegetali" elettronico. Le “varietà bo- 
taniche" che si possono ottenere (ne 
potete osservare alcuni esemplari ri- 
portati su queste pagine) sono vera- 
mente tante ed interessanti. L'unico 
cruccio che mi rimane è di non essere 
riuscito a trovare un algoritmo che si- 
muli il profumo dei fiori! 


Alberi 

Chiarisco subito con un semplice e- 
sempio come nasce un albero del ti- 
po che ci interessa: immaginiamo di 
disegnare un punto (che possiamo 
chiamare nodo) su un foglio. Da que- 
sto nodo facciamo partire due seg- 
menti (o rami) divergenti e conside- 
riamo le estremità libere dei rami 
stessi come due nuovi nodi da cui 
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partono quattro nuovi rami (due per 
nodo). Dalle quattro estremità risul- 
tanti “partono” otto nuovi rami e così 
via. Tale processo di crescita è visua- 
lizzato, nei primi quattro stadi, nella 
figura 1. 

Per trasformare in un algoritmo e- 
scguibile da computer il processo de- 
scritto, ho preso carta c penna ed ho 
ricostruito i primi tre stadi di crescita, 
indicando con S il generico ramo si- 
nistro e con D quello destro: 

• primo stadio: seq.l = S-D (cioè disegnai! 
ramo sinistro e poi quello destro). 

• secondo stadio: seq.2*S-(S-D)-D-(S-D) 
e quindi seq.2=S-seq.l-D-seq.l. 

• terzo stadio: seq.3 ■ S-(S-seq. l-l)-seq. 1 )- 
D-<S-scq.l-t)-seq. I) cioè seq.3=S-seq.2- 
D-Seq.2. 

In generale quindi: seq.N = S-scq.N- 
1-D-seq.N-l. 

Come si constata subito la sequen- 
za base di operazioni è semplice: 


disegna il ramo sinistro - disegna il 
ramo destro 

però per potere tracciare il ramo de- 
stro di una qualsiasi sequenza N. oc- 
corre prima avere completato tutte le 
sequenze subordinate, cioè bisogna 
eseguire la seq.N-1 che, a sua volta, 
richiede l'esecuzione della scq.N-2. e 
così via fino alla scq.l che, non aven- 
do sequenze subordinate, viene fi- 
nalmente realizzata interamente. 

A questo punto si può completare 
la seq.2, cioè disegnare il suo ramo 
destro, e su questo costruire un'altra 
seq.l. Fatto ciò si passa al ramo de- 
stro della seq.3 e si riparte con il ramo 
sinistro di una nuova seq.2... 

Mi fermo qui perchè non voglio a- 
vcre sulla coscienza il suicidio di 
qualche lettore: chi ha i nervi saldi 
può benissimo continuare da solo 
nel tortuoso cammino e comprende- 
re così l’algoritmo proposto nel lista- 
to (linee 580-740). 




Il programma 

Prima di tutto devo sottolineare che 
il programma necessita delle routine 
grafiche pubblicate sul n. 14 per pote- 
re funzionare (oppure di quelle ri- 
portate sul fascicolo Commodore 
Speciale, appositamente pubblicato). 

Dopo averle attivate, caricate que- 
sto listato, date il RUN e rispondete 
alle tre richieste del computer nodi, 
angolo d'apertura dei rami, tronchi. 

Il primo valore da digitare si riferi- 
sce al numero delle serie di nodi (o 



d I 

stadi o sequenze) desiderate. Ad e- 
sempio rispondendo 3 saranno dise- 
gnati i primi tre “stadi di sviluppo" 
dell'albero (vedi disegno 3 della figu- 
ra 1). 

L'angolo richiesto è quello formato 
dalle coppie di rami generate dai no- 
di e va espresso in gradi. 

. Infine occorre specificare se si desi- 
dera un albero “normale" (rispon- 
dendo 1) o più alberi accostati (ri- 
spondendo 2. 3. 4....) che consentono 
di ottenere un fiore. 

I tre valori richiesti vanno separati 
dalla virgola. 

Per rendere più “realistici" alberi e 
fiori ho inserito la linea 720 che dise- 
gna una foglia esagonale alle estre- 
mità libere dei rami. In queste pagine 
sono riportati alcuni esempi di ciò 
che potete ottenere con tale program- 
ma e insieme a questi altre figure che 
si possono realizzare con semplici 
modifiche che ora illustro c che non 
ho inserito nel listato originale per 
non farvi perdere la testa con un nu- 
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mero eccessivo di parametri da as- 
segnare. 


Nuovi innesti 

Linea 250. La variabile P indica 
quanti rami devono essere generati 
da ogni nodo. Basta modificare tale 
linea cosi: 

250 INPUT’RAMI”;P 

per avere la possibilità di decidere 
ogni volta la "prolificità" dell'albe- 
ro. Ricordate che P non deve comun- 
que essere minore di 2. 

Linea 340. La variabile NI indica 
quali rami vanno disegnati. Ad e- 
sempio se NI = N vengono disegnati 
tutti i rami, se N1=0 nessun ramo 
viene tracciato. 

Linea 350. Per N2 (che riguarda le 
foglie) la spiegazione è rovesciata, ad 



esempio se N2^N non vengono dise- 
gnate le foglie, se N2=0 vengono di- 
segnate foglie alle estremità di tutti 
i rami. 

Anche per tali variabili si può mo- 
dificare il programma in modo da 
decidere ogni volta: 

340 INPUT” RAMI DA DISE- 
GNARE"^! 

350 INPUTTOGL1E DA DISE- 
GNARE";FO:N2= N-FO 

Altri fattori su cui potete interveni- 
re sono: la variabile S (linea 360) che 
determina di quanto si devono accor- 
ciare i rami ad ogni "stadio di svilup- 
po”; la variabile L (linea 370) che in- 
dica la lunghezza dei rami al primo 
stadio; le variabili XI e Y1 (sempre 
sulla linea 370) che posizionano l'al- 
bero da disegnare. 



La linea 390 serve solo a disegnare 
il "tronco" dclfalbero nel caso che 
abbiate assegnato valore unitario al 
terzo parametro richiesto dal pro- 
gramma. 

Se volete disegnare foglie di forma e 
dimensioni diverse, basta modificare 
i parametri dell'istruzione ARC nella 
linea 720. 


N.B. I due punti (:) presenti tra l'i- 
struzione THEN c i comandi della 
grafica (DRAW. ARC. eccetera) sono 
indispensabili per non incorrere in 
un SYNTAX ERROR. 

Di alcune figure riportiamo i para- 
metri necessari per il loro traccia- 
mento. Quali, invece, sono necessari 
per il disegno delle figure "D" e "L”? 
Tra le risposte dei lettori selezionere- 


mo le più simpatiche e. forse, inviere- 
mo qualche libro in omaggio (a patto 
che abbiano indicato il titolo richie- 
sto). 

Capito. Marcia? (domanda in codi- 
ce. n.d.r.). 



SCHEDA TECNICA 

Software applicativo per: 

grafica 

didattica 

Idoneo per computer: 

C/64 

Adattabile ad altri computer 

Richiede routine grafiche di Toma 

Consigliato fuso 
della stampante 

Consigliato a tutti 
i lettori. 
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In questa tabella sano riportati i Qui sotto sono riportate 1b 

valori delle variabili P, NI, N2 Col- terne di valori che consen- 

tre ai valori dei parametri "base”} tono di ottenere i disegni 

che consentono di ottenere le Figure realizzati con il program- 

indicate. ma base. 


FIG. NODI ANG . TRONCHI P NI N2 FIG . NODI ANG. TRONCHI 


G5110 1 354 A G 50 G 

H 2 324 1 10 0 1 B B 90 1 

1 2 300 1 7 2 1 C 5 60 5 

LX X X 3 2 1 D YY Y 

N5 50 4 2 0 0 E 5 50 4 

N 4 45 5 200 F 4 25 6 

0 4 50 3 2 4 0 


100 

REM C/64 -*■ ROUTINE 6RAF1CH 

430 

NEXT 


E PUBBLICATE SUL N.14 DI C. 

440 

• 


C.C. 

450 

REN PREMI UN TASTO 

160 

REN BY DANILO TONA 

460 

470 

UAIT 19B.1-.GET AI 

9 

9 

190 

• 

• 

480 

-TEXTG,14:PRINT 

200 

PR INTCHRSt 147) 

490 

PRINT"ANCORA ? CS/N}” 

210 

POKE 53280,11 

500 

UIAIT IBS, 1 : GET AI 

220 

PR I NT "NOD I , ANO. D’APERT. D 

510 

IF AI-"S” THEN RUN 


E I RAMI, TRONCHI” 

520 

IF AIO ”N” THEN 500 

230 

INPUT N.GR.UJ 

530 

END 

240 

-CLEAR:-GRAF6,1:-C0L OR 1 

540 

• 

250 

P-2 : REN ••• P-RANI GENERATI 

550 

REM ELABORA E DISEGNA 


DA OGNI NODO 

560 

REM I RAMI 

260 

N-N-1:DIN OCN) , DCP) 

570 

9 

270 

REN *** DC )-DIREZIONI DEI 

580 

000-0: IF K-0 THEN RETURN 


RANI 

590 

I “L/STCK-1 } 

280 

DC0)-w*GR/360 

600 

X1-X1+C0SC ANI* I 

290 

FOR 1-1 TO P-l 

610 

Y1-Y1+SINCAN}*I 

300 

DC I )--tr*GR / 180 / ( P-l ) 

620 

AN-AN+w: K-K-l 

310 

NEXT 

630 


320 

DCP)-DC0)-ir 

640 

AN-AN+DCOCK)} 

330 

• 

650 

IF OC fcO-P THEN 5B0 

340 

NI -N : REN *** NI- NUNERO DE 

660 

000-000 + 1 


I RANI DA DISEGNARE 

670 

• 

350 

N2-N- 1 : REN *** N2- NUNERO 

680 

I-L/StK 


DI FOGLIE DA NON DISEGNARE. 

690 

X2-X1+C0SCAN)*I 

360 

S- 1.5: REN *** S-FATTORE DI 

700 

Y2-Y1+SINCAN}*I 


RIDUZIONE 

710 

IF K“< NI THEN : -DRAUIX1 , Y1 , 0 

370 

XI -0 : Yl-0 : L-37 


.X2.Y2.0 

380 

• 

9 

720 

IF K>N2 THEN : -ARCX2 , Y2 , 0 , . 

390 

IF U-l THEN : «-DRAUJX1 , Y1 , 0 , X 


5*1, .5*1 ,AN, AN+2*tr,«/3 


1,-100,0 

730 

IF K<N THEN K-K+l : X1-X2 : Yl- 

400 

FOR J-0 TO W-l 


Y2 1 

410 

AN-ir/2+J*2*ir/W 

740 

GOTO G40 

420 

GOSUB 640 

750 

END 
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M I G L I O R E Vf/AMIGA 

COMMODORE 


Distributore autorizzato 

In regalo a tutti gli acquirenti di un PC 


la tessera del N I U, 1 A Gamica CLUB. 

Fumica costa £ 2.500.000 IVA comp. 
consegna GRATIS IN TUTTA ITALIA 

Tutto il software disponibile 
e l’hardware novità. 

Inoltre la NIWA vi propone per il vostro C/64-C/128: 

Floppy disk “Memorette” 5V* ssdd 100% error free cd 

Floppy disk bulk 3 1 / 2 dsdd 100% error free da 

Allinea testine Cartridge 


Allinea testine con turbotape e turbo 202 

MPS 802 New Graphic CON MONTAGGIO GRATUITO rende 100% compatibile la tua 
MPS 802 con i programmi di grafica 

O.M.A. Non permettere che i tuoi programmi originali si ROVININO. Con O.M.A., puoi 
fare una copia di sicurezza in un unico file (!) ricassettabile del tuo software su disco o 
su nastro 

HACKER Cartridge: trasferisce il 99% del tuo software protetto da nastro e da disco 


a disco in soli 4 minuti senza bisogno di conoscenza Linguaggio 

HACKER-TAPE: permette di ricassetta re qualsiasi tipo di programma predentemente 
trattato con HACKER, senza nessun problema di blocchi, leggendo in turbo da disco e 
scrivendo in turbo su nastro 

OFFERTA: HACKER f HACHER TAPE 

Speeddos per C64 L. 65.000 per C128 L. 85.000, per 1541 C L. 79.000, Fast load 
reset L. 35.000, Isepic L. 50.000, Capture L. 99.000, Super Cartridqe L. 99.000. 
Super Freere 3 L. 99.000 

Doublé side kit per scrivere sulla seconda faccia del dischetto senza più forarlo - di- 
sinserirle. 


P.O. BOX 83 - 20099 Sesto - S. Giovanni (MI) MM. Marelli 

Tel. 02/2440776-2476523 
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Caleidoscopio 

Un programma brevissimo dagli effetti spettacolari 


Q 


\^uesto breve ma affascinante 
programma consente la visualizza- 
zione di due tipi di caleidoscopi. 

Il primo genera figure ricorrendo 
ad un gruppo di caratteri semigralìci 
(monocromatici) in continua trasfor- 
ma/ione. 

Il secondo disegna sullo schermo 
mosaici policromi, con doppia sim- 
metria speculare. 


di Roberto M orassi 

Per passare dal primo al secondo è 
sufficiente premere il tasto Return in 
qualsiasi momento. 

Poiché sul primo non si può inter- 
venire. ci soffermeremo sulla gestio- 
ne del secondo tipo di caleidosco- 
pio. 

Per non appesantire il disegno, 
questo viene periodicamente "trafo- 
rato”, sempre in modo simmetrico. Si 


può controllarne l'evoluzione con i 
seguenti tasti: 

Shift: ferma temporaneamente il 
programma, ‘congelando" la scher- 
mata. 

Commodore: la schermata continua 
utilizzando solo l’ultimo colore. 
Control: la schermata continua "tra- 
forando" il disegno. 

Questi ultimi due funzionano an- 
che con lo Shift Loek inserito. 


100 REM CALEIDOSCOPIO 
120 REM BY ROBERTO HORASSI 
130 REM & A. DE SIMQNE 
150 REM UERSIONE C/64 
170 PR I NT ”C CLEAR3 1- PRIMA UERSI 
ONE ” 

180 PR I NT ”C DOUN32- SECONDA UERS 
IONE” 

190 6ET A$ : I F AS-”1” THEN PRINT 
”C OLEARI”: RUN220 
200 IF A$-”2” THEN RUN3B0 
210 GOTO 190 

220 FOR 1-55296 TO 56295 : POKE I 
, 1 : NEXT 

230 FOR 1-0 TO 7: READ CLCI):NEX 
T 

240 NI -1024 : N2-40 : N3- . 625 : N4-39 
.9999 

250 FOR UI-3 TO 50: FOR 1-1 TO 19 
: FOR J-0 TO 19 

260 K-I+J : C-CLC C J*3/( I+3) + I*W/l 
2) AND 7) 

270 Y1-N1+N2*INT(N3*I ) : Y2-N1+N2 
*INTCN3*K) 

280 Y3-N1+N2*INT(N3*CN4-I ) ) 

290 Y4-N1^N2*INTCN3*CN4-K)) 

300 POKE I +Y2 , C : POKE K+Yl,C:POK 
E N2-I+Y4.C 

310 POKE N2-K+Y3 , C : POKE K+Y3,C: 
POKE N2- I+Y2.C 

320 POKE I +Y4 , C : POKE N2-K+Y1.C 
330 GET Y$ : I F YS<>”” THEN RUN3 
80 


340 

350 

370 

380 

390 

400 

410 

420 


430 


440 

450 

460 

470 


480 


490 

500 

510 

520 


NEXTJ , I , Ul : GOTO 250 

DATO 160,127,102.64,91,93.5 
9,32 

REM SECONDA UERSIONE 
XS-”CRUS:CNEROD 
” : REM 40 SPAZI 
A-55304 : B-55327 : C-56224 : D-5 
6247 

POKE 53290,0: POKE 53291, 0:P 
RINT"CNER03" 

Z-16+RNOC05 

FOR X-l TO 24:PRINTX$; : NEXT 
: FOR X-1994 TO 2023: POKE X, 
160: NEXT: POKE 199,0 
UIAIT 653,255, 1 : X- 1 NTC 12+RND 
Cl)):Y-INT(12*RNDCl)):Xl-40 
*X : Y1-40+Y: UI-PEEKC653) 
T-T+1:IF T-40 THEN T-0:F-CF 
+11 AND 1 : Z“16*RND( 1 1 
IF F THEN Z-0 

I F Ul> 1 THEN Z-Z1:IF Ul>3 THE 

N Z-0:T-39:F-1 

POKE A+X+Yl , Z : POKE B-X+Yl.Z 

: POKE C+X-Yl , Z : POKE D-X-Yl , 

Z 

POKE A+Y+Xl , Z : POKE B-Y+Xl.Z 
: POKE C+Y-Xl , Z : PDKE D-Y-Xl , 
Z 

Z1“Z : GET A$:IF AS-”” THEN 4 
30 

IF AS-CHRSC13) THEN RUN220 

T“0 : F“0 : GOTO 410 

END 
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Uno scacciapensieri 

a zero lire 


Un programma che, oltre ad essere un 
simpatico gioco, è anche simulazione, 
didattica e suggerimento per un 
nuovo standard da adottare per 
imparare a programmare divertendosi 


di Alessandro de Simoae 



AiM 


Di certo i neo utenti del Commo- 
dore 64 si saranno divertiti a digitare 
il breve programma riportato sul ma- 
nuale che fa muovere una mongolfie- 
ra lungo lo schermo. 

Non tutti, però, pur comprendendo 
le operazioni elementari necessarie 
per animare uno sprite. sono in gra- 
do di sviluppare giochi per proprio 
conto e. a maggior ragione, riportarli 
su computer. 


Dalla teorìa alla pratica 

Il brevissimo programma riportato 
in queste pagine prende spunto da u- 
no di quei giochi elettronici tascabili 
che vanno tanto di moda oggi. 

Ognuno di questi, tra l’altro, costa 
una cifra non indifferente (di rado 
inferiore alle 30000 lire) e non si sot- 
trae. come tutti gli altri, all'antieco- 
nomica regola del bel gioco che 


dura poco... 

Perchè, dunque, non gettare le basi 
per realizzare, con il C/64, questi mo- 
derni giocattoli? E perchè, visto che 
ci siamo, non fare in modo da svilup- 
pare un metodo di programmazione 
che faciliti la realizzazione di tali 
giochi? 

Si tenga presente che gli “scaccia- 
pensieri" (strano nome affibbiato ai 
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giochini elettronici) basano la loro 
tecnica su alcune mini-immagini 
(cristalli liquidi) che vengono accese 
o spente a seconda del caso; vi sono, 
inoltre, oggetti o personaggi (anch es- 
si immagini su cristalli liquidi) da 
muovere premendo qualche pul- 
sante. 

Tale tecnica di animazione sembra 
fatta apposta per il nostro C/64, che 
in quanto a sprite (a colori!), a tasti e 
ad effetti sonori non è certo secondo 
a nessuno. 

Trascurando la banale ironia sulla 
non tascabilità di un intero sistema 
C/64, rimane la noia della digitazio- 
ne dei dati relativi agli sprite. E’ noto, 
infatti, che ognuno di questi richiede 
ben 63 dati da digitare, quasi sempre, 
sotto forma di DATA. Molto spesso 
una digitazione tanto lunga (ben 256 
numeri da trascrivere per sole quat- 
tro figure) ha scoraggiato più di un 
lettore dal digitare programmi ripor- 
tati su riviste del settore. 


Lo standard 

Non tutti, però, riflettono sul fatto 
che non è necessario digitare 63 nu- 
meri per ciascuno sprite di un gioco 
che si intende sviluppare, ma è suffi- 
ciente assegnare un blocco della me- 
moria che contenga 63 dati non 
tutti nulli. 

In altre parole: se volete realizzare 
un gioco (come nel caso del program- 
ma pubblicato) in cui un’astronave 
debba esser colpita da un missile, 
non è necessario disegnare i due og- 
getti fin dalfinizio. Basterà concen- 
trarsi sullo sviluppo del gioco e far 
finta che quei rettangoli informi, 
provvisoriamente assegnati, rappre- 
sentino l’uno l’astronave e l'altro il 
missile. 

Quando saremo soddisfatti del no- 
stro gioco (in seguito a vari controlli, 
modifiche c migliorie) potremo dedi- 
care il nostro tempo a disegnare gli 
sprite. 


Il programma pubblicato 

Abbiamo accennato, all'inizio, ad 
una sorta di Standard per la realizza- 
zione di programmi basati sull'uso 
degli sprite. 

Il vantaggio di una simile adozione 
consente di digitare il micro-pro- 
gramma (meno di 30 righe di pro- 
gramma, escluse le REM!) che simu- 
la uno scacciapensieri. 

Si notino le quattro subroutinc po- 
ste alle righe 400, 500, 600, 700 che as- 
segnano. ai quattro sprite utilizzati, il 
solo blocco n.O della memoria. E’ ov- 
vio che il primo gruppo di 64 byte 
contiene informazioni vitali per il 
computer e non deve in alcun modo 
essere alterato. 

In seguito, se il lettore non sarà sod- 
disfatto del risultato grafico (invero 
un po’ bruttino) potrà digitare le 
quattro subroutinc del secondo lista- 
to che. se battute cosi come sono pub- 
blicate, si ‘‘sovrapporranno’’ al pri- 
mo listato e sostituiranno il banco 
n.O (comune ai quattro sprite) con 
quelli numerati con 226 (astronave). 
227 (cannone), 228 (missile). 229 
(bomba). Se lo desiderate potrete di- 
gitare il secondo listato anche a... ra- 
te; cioè dapprima le righe da 400 a 
470. poi quelle da 500 a 570 c cosi via. 
E se le immagini non saranno di vo- 
stro gradimento potrete sbizzarrirvi a 
modificarle come preferite, senza 
modificare di una sola virgola il pro- 
gramma principale (righe 130/350). 

Le righe 180-210, opportunamente 
inserite in qualsiasi listato del gene- 
re, vi aiuteranno di certo nella stesura 
di programmi di vasto respiro che ri- 
chiedano la gestione degli sprite. 


Ai più bravi 

Non poteva mancare un invito a coloro 
che si ritengono più bravi e, magari, anche a 
coloro che lo stanno diventando: di scaccia- 
pensieri, come quello che ha “ispirato** il 
programma pubblicato, ce ne sono tanti e 
non sempre vaie la pena spendere cifre rag- 
guardevoli per procurarseli. D’altro canto 
rappresentano una validissima palestra per 
sperimentare la propria abiliti nel pro- 
grammare: riporatre, su computer, i giochi 
tascabili è un’operazione semplice solo in 
apparenza. 
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( hi se la sente puh cimentarsi nella simu- 
lazione di qualche giochino in suo possesso 
ed inviarci il listalo, a patto di strutturarlo 
come indicato (versione semplice e versione 
‘‘disegnata"). 

Ai più meritevoli, come al solito, ricchi 
premi e cotillons. 

Prima di inviare il materiale, ma ormai 
dovreste saperlo, telefonateci: 02/84.67. 
34.8. meglio se al pomerìggio. 


SCHEDA TECNICA 

Software applicativo per: 

grafica 

giochi 

didattica 

simulazioni 

Idoneo per computer: 
C/64 

Difficilmente adattabile 
ad altri computer 

Ideale l'uso di un 
monitor a colori 

Consigliato a tutti 
i lettori 


120 

130 

140 


100 RE fi SEMPLICI GIOCHI PER PRI 
NCIPIANTI CE NON. . . ) 

110 REM SIMULAZIONE DI SCACCIAP 
ENSIERI PER COMMODORE 64 ME 
D I ANTE L’USO DI SPRITE 

120 : 

130 POKE 56,60: RUN140 : REM FISS 
A TOP DI MEMORIA 

140 U-53248: PRINTCHRSC 147) TABC 
26) "USARE I TASTI”: PRINT TA 
BC 26) "CURSORE PER” 

150 PRINT TABC26) "POSIZIONARSI" 
: PRINT TABC 26 ) "E SPARARE" 

160 POKE U+21 , 255 : REM ABILITA T 
OTTI GLI SPRITE 

L70 P— 1 00 : REM INIZIALIZZA UELOC 
ITA’ 

L80 GOSUB 400 : REM SPRITE N.0: A 
STRONAUE 

LS0 GOSUB 500: REM SPRITE N.l: C 
ANNONE 


150 


160 


170 


180 


130 


200 


210 


220 


230 


240 


250 


260 


270 


280 


230 


GOSUB 600: REM SPRITE N.2: M 
ISSILE 

GOSUB 700: REM SPRITE N.3: B 
OMBA 

FOR I-U TO U+ 16 : POKE 1,0: NE 
XT : REM AZZERA LA POSIZIONE 
DI TUTTI GLI SPRITE 
U-0 : 2-200 :K-B0:U-30: REM INI 
Z I AL I ZZAZ I ONE 

X-30+ 1 NTC RNDC0 )*4 ) *60 : IF X- 
Y THEN 240 : REM 30,30,150,2 
10 

Y-X : POKE U , X : POKE U+ 1,50: RE 
M POSIZIONA ASTRONAUE 
GET A$ : REM ESAMINA TASTO PR 
EMUTO 

IF AS-CHRSC29) AND LJ-0 THEN 
U-U+60 : I F U>210 THEN U-30: 
REM CURSORE IN BASSO 
IF A$-CHP$C17) THEN W-1:REM 
CURSORE A DESTRA 
IF U-0 THEN POKE U+2,U:P0KE 
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U + 3 , 230 : REM BASE 


0 


3 00 

IF W-l THEN POKE U+4,U:P0KE 

470 

DATA 

0,56,0.0,055,0. 1,56,10 


U + 5, Z: Z-Z-10: IF Z< 50 THEN 


8 



Z-000: H-H+l : P-P* . 0 : GOTO 000 

4B0 

• 


310 

POKE U + 6 , X : POKE U+7,K:K-K+1 

490 

REM : 

DATI PER CANNONE 


0 : I F K> 030 THEN K-80:H-H+1: 

500 

POKE 

0041 ,007: POKE U + 40 , 1 : F 


P“P* . 0 : GOTO 000: REM BOMBA 


OR I 

-0 TO 60 .-READ A: POKE 00 

3 20 

FOR J-l TO P : NEXT : REM RITAR 


7*64+1 , A. NEXT: RETURN 


DO 

510 

DATA 

0 , B0 ,0,0, 60 ,0,0, 60 , 0 

330 

PR I NTCHR5C 19)L,H:REM UISUAL 

500 

DATA 

0,60,0,0,60,0,0,60,0 


IZZA BOMBE INTERCETTATE E C 

530 

DATA 

0,60,0,0,60,0,0,60,0 


ANNONI DISTRUTTI 

540 

DATA 

0,60,0,0,60,0,0,60,0 

340 

IF PEEK C U+30 ) -050 THEN L-L + 

550 

DATA 

0, 1B6 ,0,0, 1B6, 0, 0, 126 , 


1 : GOTO 000 : REM RICOMINCIA S 


0 


9 

E INTERCETTA BOMBA 

560 

DATA 

0 , B55 ,0,0, B55 ,0,0, B55 , 

350 

IF H< 3 THEN P-P*. 95: GOTO 06 


0 



0 : REM AUMENTA UELOCITA' DEL 

570 

DATA 

0 , B55 ,0,0, 255 ,0,0, B55 , , 


5V. 


0 


360 

END 

500 

• 


370 

• 

590 

REM DATI PER MISSILE 

300 

REM ASSEGNAZIONE SPRITE E C 

600 

POKE 

8042 , 880 : POKE U+41,3:F 


□LORI FITTIZI 


OR 1-0 TO GB: READ A : POKE 22 

390 

; 


0*64+1 , A: NEXT: RETURN 

400 

POKE 0040,0: POKE U+39,0:RET 

610 

DATA 

0,24,0,0,24,0,0,60,0 


URN 

600 

DATA 

0,60,0,0,60,0,0,60,0 

500 

POKE 0041,0: POKE U+40,1:RET 

630 

DATA 

0,60,0,0,60,0,0,60,0 


URN 

640 

DATA 

0, 126,0,0, 126,0,0, 126, 

600 

POKE 0040 , 0 : POKE U+41,2:RET 


0 



URN 

650 

DATA 

0,255,0,0,255,0,0,255, 

700 

POKE 0043,0: POKE U+42,5:RET 


0 



URN 

660 

DATA 

(71 

0,255,0,0,255,0,0,255, 

360 

END 

670 

DATA 

3,24,132,7,135,224,7,0 

370 

• 


,204 

300 

# 

680 

9 


390 

REM ASTRONAUE NEMICA 

690 

REM DATI PER BOMBA 

400 

POKE 0040 ,006: POKE U+39,0:F 

700 

POKE 

8043, 229: POKE U+42,5:F 


OR 1-0 TO 60: READ A: POKE 00 


OR 1-0 TO 60: READ A: POKE 00 


6*64+ 1 , A : NEXT : RETURN 


9*64+1 , A: NEXT: RETURN 

410 

DATA 0,56,0,0,055,0,7,56,00 

710 

DATA 

7,195,224,7,0,224,3,24 


4 


,190 

400 

DATA 7,56,004,7,56,004,7,56 

700 

DATA 

0,60,0,0,60,0,0,60,0 


,004 

730 

DATA 

0 , 60 ,0,0, 60 ,0,0, 60 , 0 

430 

DrtTA 7,56,004,7,56,004,7,56 

740 

DATA 

0,255,0,0,255,0,0,255, 


,004 


0 . 

440 

DATA 7,56,004,7,56,004,7,56 

750 

DATA 

0,126.0,0,126,0,0, 126, 


,224 


0 

450 

DATA 0,055,0,0,055,0,0,055, 

760 

DATA 

0 , 60 ,0,0, 60 ,0,0, 60 , 0 


0 

770 

DATA 

0, 60,0,0,24.0,0,24,0 

460 

DATA 0,56,0,0,055,0,1,56,10 

780 

END 
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Un sistema controllato 

Come assegnare un voto a ciascuna colonna 
del vostro sistema Totocalcio 


\^uando sviluppiamo un sistema 
(sia esso integrale, ridotto o condizio- 
nato), otteniamo alla line un gruppo 
di colonne da trascrivere sulle sche- 
dine per la giocata. 

Non tutte le colonne, però, hanno 
la medesima probabilità di vinoria e 
ciò vale anche per quelle colonne che 
derivano da particolari condiziona- 
menti imposti dal giocatore, come 
nel caso, appunto, dei sistemi ridotti 
o condizionati. 

Quando assegniamo un pronostico 
fisso ad una partita, riteniamo di es- 
sere ragionevolmente certi che si ve- 
rifichi l’evento indicato; ne approfit- 
tiamo per ricordare che, secondo le 
leggi della statistica, la “certezza” e- 
quivale al 100% delle probabilità che 
un certo evento si verifichi. 

Non sempre, però, quando decidia- 
mo di giocare una “doppia” (come 
nel caso di un pronostico “1.X") la 
nostra intenzione è quella di asse- 
gnare eguale probabilità alla vittoria 
e al pareggio (50% per ciascun even- 
to). Può capitare, in casi come quello 
esaminato, di voler assegnare il 74% 
alla vittoria in casa e solo il 26% al pa- 
reggio (la somma deve comunque es- 
sere pari a 100). 

Analogamente, nel caso delle tri- 
ple, è possibile trovarsi nella condi- 
zione di voler assegnare probabilità 
di esito del tutto diverse tra loro: 35% 
per la vittoria in casa; 55% per il pa- 
reggio e solo il rimanente 10% per la 
vittoria degli ospiti. 

Secondo lo stesso ragionamento, 
attribuire un pronostico fisso (come 
”1”) significa assegnare le seguenti 



probabilità: “P=100%; “X”=0%; 

u r=o% 

Sarebbe interessante, quindi, per 
ciascuna colonna del sistema svilup- 
pato. determinare il grado di "credi- 
bilità” della stessa colonna in base 
alla probabilità che ogni pronostico 
ivi ricopre. 

Dalla teorìa alla pratica 

Il programma che pubblichiamo, 
ovviamente, provvede alla risoluzio- 
ne del problema in modo sempli- 


cissimo. 

E' bene sottolineare che il listato a- 
giscc su file generati dai programmi 
"Sistemi condizionati”, pubblicato 
su CCC N.35; "Sistemi Ridotti" 
(CCC N.37); “Sistemi ridotti e condi- 
zionati” (CCC N.38). 

Ognuno dei programmi citati ela- 
bora un cerio numero di colonne che, 
memorizzate su supporto magnetico 
secondo uno standard predetermina- 
to. sono suscettibili di lettura e suc- 
cessive elaborazioni da parte del- 
l'utente. 

Per illustrare le fasi da percorrere. 
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in modo da utilizzare correttamente 
il programma di queste pagine, se- 
guite alla lettera quanto segue ed evi- 
terete difficoltà nelle vostre applica- 
zioni personali. 


Preliminari 

Supponiamo di voler applicare la 
determinazione della probabilità al 
gruppo di colonne generate con il 
programma "Sistemi ridotti" (CCC 
N.37). Caricheremo dapprima, natu- 
ralmente, questo programma e alla 
domanda “Inserisci il sistema da ri- 
durre" digiteremo il seguente, forma- 
to da due triple, tre doppie e otto 
fisse: 

I: 1 
2 : 2 
3: I 
4: 1 
5: 1X2 
6: X 


7: X 

8: IX 
9: X 
10: I 
11: IX 
12: X2 
13: 1X2 

Il programma "Sistemi ridotti" do- 
po qualche secondo, risponderà in- 
dicando il numero di colonne costi- 
tuenti lo sviluppo integrale (72 colon- 
ne), la riduzione praticabile (18 co- 
lonne) e la possibilità di svilupparlo; 
rispondendo "S" alla domanda ne 
verrà posta un’altra ("Crei archi- 
vio?") alla quale risponderemo affer- 
mativamente indicando, in seguito, il 
supporto magnetico desideralo (na- 
stro o disco) ed il nome; questo sarà 
TOT" dal momento che il program- 
ma di queste pagine accetta solo que- 
sto nome (per problemi di compati- 
bilità con il programma "Sistemi 
condizionati"). 

Dopo un tempo determinato dalla 


periferica usata, otterrete sul suppor- 
to magnetico il file sequenziale 
TOT" pronto per essere manipolato 
dal programma qui pubblicato. 


Come utilizzare 
il programma 

Caricato, quindi, il programma di 
queste pagine che avrete furbesca- 
mente digitato e registrato in prece- 
denza. date il solito RUN. 

Verranno poste, per ciascuna delle 
13 partite, due domande relative alla 
percentuale da assegnare ad ognuno 
dei tre eventi ("1". "2". "X"). Il pro- 
gramma, infatti, non può sapere se le 
colonne che andrà a leggere dal file 
sequenziale appartengono, o meno, a 
pronostici fissi, a doppie oppure a 
triple. 

Poiché alla prima partita abbiamo 
assegnato in precedenza il pronosti- 
co"!” (fisso), evidentemente digitere- 
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mo 1(X) alla domanda "Prob.l (Max: 
100 )?". 

Subito dopo, sempre per la prima 
partita, il computer chiederà la pro- 
babilità da assegnare alla "X". La ri- 
sposta sarà ovviamente nulla e potre- 
mo anche battere il tasto Return sen- 
za digitare la risposta: questa, infatti, 
vale zero per default. La domanda re- 
lativa al pronostico “2" non viene po- 
sta dal momento che la somma "de- 
ve" essere 100 ed il computer, in se- 
guito alla elaborazione delle due ri- 
sposte precedenti, deduce la terza 
automaticamente. 

Una opportuna domanda di con- 
ferma sulle probabilità assegnale ai 
tre pronoslici possibili viene, comun- 
que. effettuata per consentire even- 
tuali correzioni. In caso di risposta 
affermativa il programma chiederà i 
dati relativi alle partite successive. 

Poiché anche per la seconda, terza 
e quarta partita abbiamo assegnato 
pronostici fissi, digiteremo le nostre 
decisioni assegnando 0 ai pronostici 

1" e X" della seconda partita (con il 
conseguente 100 assegnato automati- 
camente a “2"); KM) al pronostico T" 
della terza e quarta partita (e 0 sia ad 
"X" che a *2"). 

Per la quinta partita si presenta, fi- 
nalmente. l'opportunità di utilizzare 
realmente il programma pubblicato. 

Supporremo, dunque, di essere più 
propensi ad una vittoria in casa e ad 
un pareggio piuttosto che ad una 
sconfitta. Assegneremo, dunque i se- 
guenti valori: 

T M = 50% 

"X"* 35% 

"2 M = 15% 

Senza dilungarci sul comporta- 
mento da seguire per le altre "fisse", e 
non volendo ripeterci per le “variabi- 
li". ci limitiamo ad indicare qui di se- 
guito le percentuali ipotizzate nel- 
l’esempio: 

Partila N.8 (l.X): 

”1”= 40 
"X"= 60 
" 2 "= 0 

Patitila N.ll (l.X): 

"1”- 50 
"X**= 50 

” 2 ”= 0 


Partirla N.I2(X.2> 

” 1 "= 0 
"X”= 38 
"2**= 62 

Partila N.13 (1.X.2) 

”1"= 35 
"X"= 45 
" 2 "= 20 

Al termine delle operazioni verrà 
visualizzato l'intero "quadro" relati- 
vo alle percentuali impostate. La so- 
lita domanda di conferma farà ripar- 
tire il programma oppure consentirà 
il caricamento del file TOT" da na- 
stro o disco. 

Dopo un periodo di tempo dipen- 
dente dalla periferica adoperata e dal 
numero di colonne elaborate con il 
programma riduttore, verranno vi- 
sualizzate tutte le colonne, una per u- 
na. corredate da altri dati che ora 
esamineremo. 

La prima colonna indica il numero 
della partita; la seconda è invece 
quella da trascrivere eventualmente 
sulla schedina; l'ultima è relativa alla 
percentuale impostata per ciascun c- 
vento. Vi troveremo, appunto, il 100% 
nel caso di pronostici fissi, ed altri va- 
lori. variabili a seconda delle percen- 
tuali assegnate, negli altri casi. 

La colonna che merita una spiega- 
zione è la terza ed è proprio quella 
sulla quale si basa l'intera elabora- 
zione del programma presentato. 

Il valore di un milione che compare 
(vedi riga 260) è un numero ragione- 
volmente alto (che il lettore dovrà 
modificare, in più o in meno, a se- 
conda dei sistemi che è abituato a svi- 
luppare) assunto come base per i suc- 
cessivi decrementi. Se una partita ha 
un pronostico fisso, la cifra rimane i- 
nalterata. Se. invece, nella stessa co- 
lonna. viene incontrato un pronosti- 
co che ha il 70% di probabilità, la ci- 
fra stessa viene decrementata nel 
senso che viene memorizzato il 70% 
del suo valore. 

Nel caso particolare della prima 
colonna, infatti, la cifra di un milione 
rimane identica nelle prime quattro 
partite dal momento che vi corri- 
spondono altrettante "fisse" (=100%). 
Con il quinto pronostico si ha invece 
una riduzione del 50% (mezzo milio- 


ne) che rimane inalterato per la sesta 
e settima partita. 

L’ottava partita riduce la cifra al 
40% del suo valore iniziale portando- 
si, così, a 200000. Procedendo con lo 
stesso ragionamento si perviene al 
valore finale 2 1700 che rappresenta il 
"voto" assegnato alla colonna N.I. 

Naturalmente i valori finali che so- 
no determinati non possono rappre- 
sentare un valore assoluto, ma solo 
relativo a quel particolare sistema e- 
laborato. Continuando a visualizza- 
re i risultati, possiamo annotare i voti 
attribuiti alle 18 colonne: 

I: 21700 
2: 27900 
3: 1 2400 
4: 19950 
5: 25650 
6: 11400 
7: 15190 
8: 19530 
9: 8680 
10: 13965 
11: 17955 
12: 7980 
13: 6510 
14: 8370 
15: 3720 
16: 5985 
17: 7695 
18: 3420 

Al termine dell'elaborazione viene 
visualizzato il voto minimo c quello 
massimo che valgono, nel caso parti- 
colare. 3420 e 27900 rispettivamente. 

Il programma, dunque, si limita ad 
indicare un voto in base ad un proce- 
dimento matematico basato, tuttavia, 
su considerazioni personali del- 
l'utente. 

A quest'ultimo spetta il compito di 
stabilire quali colonne giocare sele- 
zionando. per esempio, tutte quelle 
che hanno conseguito un punteggio 
superiore ad un certo valore, oppure 
calcolando la media dei voti ("pesa- 
ta" o meno) da prendere come riferi- 
mento per la selezione. 

Se il numero di doppie e triple è ele- 
vato, è probabile che il valore di un 
milione sia modesto e generi, alla fi- 
ne. valori troppo piccoli e scomodi 
da usare. 

E' ovvio che sarà compito del letto- 
re, dopo alcune prove, realizzare 
quella versione del listato che più ri- 
sponda alle sue esigenze. 
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100 REM DETERMINAZIONE DELLE CO 
LONNE PIU’ PROBABILI ELABOR 
ATE CON I PROGRAMMI 
110 REM PUBBLICATI SU COMMODORE 
COMPUTER CLUB 

120 REM BY ALESSANDRO DE SIMONE 
130 : 

140 DIM AS ( 700 ) : CS-CHRS C 147 ) : D$ 
-CHRSC 17) : ES-CHRSC 157) : FS-C 
HRSC29) 

150 FOR 1-1 TO 17 : GS-GS+CHRSC 17 
) : NEXT I : H$ -CHRSC 19) 

160 PRINTCS "PERCENTUAL I AL TOTO 
CALCIO” 

170 GOSUB 400 

180 PRINT : PRINT” I DATI SONO SU 
NASTRO 0 DISCO? CN/D)”:GOSU 
B 540 

190 REM "TOT ” E ’ IL NOME STANDA 
RD DEL FILE: MODIFICARLO SE 
NECESSARIO 

200 IF A$-”N” THEN OPEN 1,1,0,” 
TOT” .-GOTO 230 

210 IF AS-”D” THEN OPEN 1,0,12, 
”TOT , S , R ” : GOTO 230 
220 GOTO 200 

230 INPUT# 1 , NR : REM NR-N. COLONNE 
REGISTRATE CON IL PROGRAMM 
A TOT. 13 (CCC N . 35) 

240 PRINTCS "LETTURA DATI” 

250 FOR J-l TO NR : FOR H-l TO 13 
: I NPUT# 1 , AS : ASC J ) "ASC J ) +AS : 
NEXTH f J : CLOSE 1 

260 MI -1000000 :MA-0 : FOR J-l TO 
NR: PE-1000000 

270 PR I NTCHRSC 147 )CHR$ C 10 ) "COLO 
NNA N . ” J ” TOTALE- ”NR 
200 FOR K-l TO 26 STEP 2:W-INTC 
K/2 )+l 

230 A$-MID$CA$CJ),K, 1):PE-PE*XC 
W , UALC AS ) ) / 100 

300 PRINTW,X$CUALCA$)),PE,XCW,U 
ALCA$))"V 

310 NEXTK : PRINT : PRI NTCHRSC 18) ”U 
ALORE COLONNA: ”PE: IF PE> MA 
THEN MA-PE 


320 

330 

340 

350 


360 

370 

380 


390 

400 

410 

420 

430 

440 


450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 


570 


580 


IF M I > PE THEN MI-PE 

PR I NT ” ( BATT I P PER ESAMINAR 

E LE PERCENTUALI)” 

GOSUB 540 

IF AS- ”P ” THEN PR I NTCHRSC 14 
7) ;: FOR 1-1 TO 13:G0SUB 560 
: PR I NT : NEXT I : GOSUB 520 
PRINT : NEXTJ 

PR I NT "MINI MO : "MI , "MASSIMO: " 
MA 

PR I NT "UUO I UEDERLI DI NUOUO 
? CS/N ) ” : GOSUB 540: IF A$-"S 
” THEN 260 
END 

DIM XC 13, 3) : XSC 1 )-"l " : XSC2) 
- "X " : XSC 3)- "2" 

FOR 1-1 TO 3: XSC I )-CHR$C 18) 

■♦■XSC I )+CHR$C 146) : NEXT 

FOR 1-1 TO 13 

Z-100 : FOR X-l TO 2 

PR I NTCHRSC 18 ) "PART . N . " I :PRI 

NT "PROB . ”X$ C X ) ; : PR I NT " C MAX : 

"Z ,, ) ,, i : INPUT XCI ,X) 

IF XC I ,X)>Z OR XC I ,X)<0 THE 
N 440 

Z-Z-XC I , X ) : I F Z<0 OR Z>100 

THEN 440 

NEXTX : XC I , 3)-Z 

GOSUB 560 .-GOSUB 530: IF A$<> 

”S” THEN 430 

PRINT : NEXT I : GOSUB 570 : GOSUB 
530 

IF A$< > ”S” THEN 420 
RETURN 

PRINT: PRINT "PREMI UN TASTO" 
: GOTO 540 

PR I NT : PR I NT "CONFERM I ? CS/N) 

99 

GET AS : I F AS-"" THEN 540 
RETURN 

PRINT "PART . "I ; : FOR X-l TO 3 
: PR I NTXS C X ) " : "XC I ,X) ; " : 

NEXTX: RETURN 

PR I NTCHRSC 147 ) : FOR 1-1 TO 1 
3 : GOSUB 560 :PRINT:NEXTI :RET 
URN 
END 
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C 64 - C 128 


Autorun maker 


Una brevissima routine che permette di 
dotare di autorun un qualsiasi 
programma Basic 


di Michele Maggi 



Il problema dell'autorun (carica- 
mento e successiva esecuzione auto- 
matica del programma) è già stato 
abbondantemente trattato sulle pagi- 
ne della nostra rivista; ciò nonostan- 
te l’autorun che proponiamo è. al pa- 
ri degli altri, notevolmente efficace, 
ma più semplice e veloce da utilizza- 
re e. perchè no. da studiare in 
forma disassemblata. 

In passato abbiamo visto autorun 
che presupponevano una modifica al 
programma da mandare in esecuzio- 
ne (efr C.C.C. N.34 "Autorun: varia- 
zioni sul tema ) o altre procedure che 
(anche se più efficaci) richiedevano 
una buona conoscenza del Sistema 
Operativo da parte dell'utente. 

Con la routine proposta, invece, an- 
che I* utente meno informato potrà 


dotare di autorun i suoi programmi 
in Basic dal momento che il coman- 
do per "trattare" il programma è e- 
stremamente semplice: 

SYS 828.SA VE "NOMEPRG".8 
dove NOMEPRG è il nome del pro- 
gramma che si vuole dotare di 
autorun. 

Come utilizzare 
Autorun Maker 

Una volta digitato il breve pro- 
gramma proposto, sarà opportuno 
salvarne una copia su disco (PRIMA 
di impostare il Run) perevitare di do- 
verlo ridigitare in caso di errore che 
può generare un crash del sistema. 

Per utilizzare correttamente la pro- 


cedura indichiamo qui di seguito le 
fasi da seguire: 

1/ Caricare e mandare in esecuzione 
il programma Autorun Maker. 

2/ Una volta comparsa la scritta “Au- 
torun Maker attivato" è necessario 
battere il comando New. 

3/ Caricare (o digitare) il programma 
che si vuole dotare di autorun. 

4/ Digitare in modo diretto e su una 
sola linea i seguenti comandi: 

SYS 828:SAVE”NOMEPRG”,8 
facendo attenzione che il nome del 
programma da proteggere non sia già 
presente sul disco. 

A questo punto inizierà la procedu- 
ra di salvataggio relativa sia al pro- 
gramma vero e proprio che alla zona 
di memoria necessaria al funziona- 
mento dellautorun (da 770 a 2048). 

Dato che la suddetta zona di me- 
moria comprende anche la memoria 
video (1024-2023) le prime istruzioni 
della routine L.M. provvedono a pu- 
lire il video in modo che. con il suc- 
cessivo caricamento. non compaiano 
sullo schermo le scritte che eventual- 
mente erano presenti al momento del 
salvataggio. 

A salvataggio avvenuto si verifiche- 
rà un Reset. In seguito, caricando da 
disco il programma protetto con 
LOAD"NOMEPRG’\8,l verrà puli- 
to il video e. al termine del carica- 
mento. il programma partirà auto- 
maticamente senza possibilità di es- 
sere fermato. 

Se si tentasse di caricare il pro- 
gramma con il solito LOAD"NO- 
MEPRG".8 si otterrebbero solo sim- 
boli e scritte senza senso. 

La routine proposta, oltre che a 
mandare in autorun un qualsiasi 
programma Basic, lo protegge dal 
List in quanto ne dirotta i vettori 
(774-775) alla routine di Reset 
(64738). 

Anche la combinazione dei tasti 
Run/Stop c Restore viene disabilitata 
in modo da impedire all’utente di fer- 
mare il programma. 

Il risultato è più che soddisfacente 
in termini di efficacia e soprattutto di 
facilità di utilizzo anche se purtrop- 
po non ne impedisce la copia. 

Passiamo ora ad analizzare il fun- 
zionamento della routine L.M. per 
chi non intenda limitarsi ad utiliz- 
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/aria, ma desideri anche compren- 
derne il funzionamento. 

Come funziona il programma 

La routine (per motivi di comodità) 
è allocata da 828 a 914 (S033C-S0392) 
nel buffer di cassetta ed è composta 
da due parti: la prima modifica i vet- 
tori di Warm Start c i puntatori di ini- 
zio Basic, e la seconda crea l'autorun 
vero e proprio. 

La prima parte, oltre a pulire lo 
schermo, dirotta i puntatori di Warm 
Start a $0358, indirizzo di partenza 
dell'autorun, e disabilita i messaggi 
“SAVING” ed altri. 

Successivamente vengono aggior- 
nati i puntatori di inizio Basic (43 e 
44) in modo da farli puntare non più 
a 2049, ma a 770 sì da includere tutta 
la zona di memoria da 770 alla fine 
del programma Basic non appena 
viene impartito il comando SAVE. 

La seconda parte crea l'autorun ri- 
correndo all'uso del buffer di tastie- 
ra; subito dopo rosetta il Warm Start e 
passa a disabilitare List e Run/ 
Stop. 


Che cos’è il Warm Start 

Sicuramente qualcuno si starà 
chiedendo che cosa sia il Warm Start 


e provvediamo subito a soddisfare la 
sua curiosità. 

1 puntatori 770/771 (S0302-S0303) 
indicano al Sistema Operativo (S.O.) 
l’indirizzo di partenza della cosid- 
detta routine di Ready che viene 
chiamata molto spesso. 

Si tratta della routine che, oltre a 
stampare la consueta scritta Ready, 
provvede a restituire il controllo del 
cursore e ad altre “cose" ancora. 

Ogni volta che il S.O. termina un'o- 
perazione di caricamento da periferi- 
ca, esamina il contenuto dei puntato- 
ri di Warm Start perchè intende ese- 
guire il Ready. 

Se modifichiamo i puntatori, il S.O. 
eroderà di eseguire il Ready ma, in 
realtà, eseguirà la routine che parte 
dall’indirizzo puntato dal suddetto 
vettore. 

Ecco spiegato, dunque, perchè la 
prima parte della routine provveda al 
"dirottamento”. 

Particolare molto importante da ri- 
cordare è che una volta eseguita la 
routine è assolutamente necessario 
rosetta re i puntatori ai valori stan- 
dard e saltare alla routine di 
Ready. 

Studiando il disassemblato ci si po- 
trà sicuramente rendere conto di co- 
me sia semplice creare un autonin di 
buon livello anche con pochi byte. 


Disassemblato commentato 

033c *9 93 Ida #$93 ; Pulisce 
033* 20 42 ITJar Sffd2 ;lo schermo. 

0341 a9 58 Ida #S58 ;Dirofta I 
0343 8d 02 03 sta $0302 {puntatori 
034éa9 03 Ida #$03 ;di Warm Start. 
«348 8d 03 03 sta $0303 ; 

034ba9 00 Ida #$00 ;DisabiUta I 
034d 85 9d sta S9d ;messaf||. 

034f a9 02 Ida #$02 {Aggiorna I 
0351 85 2b sta $2b {puntatori di 
0353 a9 03 Ida #$03 {irido Basic. 

0355 85 2c sta $2c ; 

0357 60 rts • 

0358 a9 52 Ida #$52 {Carica ’R’ 4 
035a 8d 77 02 sta $0277 ;SWft ’U* e 
035da9d5 Ida #$d5 {Return nel 
035f 8d 78 02 sta $0278 {buffer della 
0362 a9 Od Ida #$0d {tastiera. 

0364 8d 79 02 sta $0279 {Mette 3 nella 
0367 a9 03 Ida #$03 {grandezza del 

0369 85 c6 su $c6 {buffer 
036ba9 83 Ida #$83 {Rese tu il 
036d 8d 02 03 su $0302 {puntatore 

0370 a9a4 Ida #Sa4 ;di Warm Start 
0372 8d 03 03 sta $0303 ; 

0375 a9 fc Ida #$fc {Dirotta il 
0377 8d 07 03 sta $0307 ;Ust. 

03 7a a9 *2 Ida #$e2 ; 

03 7c 8d 06 03 su $0306 ; 

037fa9el Ida * Sci {Disabilita RUN 
0381 8d 28 03 sU $0328 {STOP e RE- 
STORE 

0384 a5 90 Ida $90 {Se ha sabato 
0386 fO 08 beq $0390 ; *a a RESET. 

0388 a9 93 Ida #$93 {Pulisce lo 
038a 20 d2 fT jsr $ffd2 {schermo. 

038d 4c 83 a4 jmp $a483 ;Va a READY. 
0390 4c e2 fc jmp $fc*2 {Rosetta. 


100 

REM AllTORUN MAKER 


141,003 

110 

REM C64 & DRIUE 

250 

DATA 003 , 169 , 000 , 133 , 157 , 1 

120 

a 


60 ,002,133, 043 , 160 , 003 , 133 , 

130 

REM BY MICHELE MAGGI 


044,006 

140 

; 

260 

DATA 160 , 002 ,141,110, 002 , 1 

150 

F0R I-BBB TO 914 


60,213,141,120,002,160,013, 

150 

READ A : POKE I,A 


141,121 

170 

CK-CK+A 

270 

DATA 002 , 160 , 003 , 133 ,100,1 

100 

NEXT 


69,131 

190 

IF CK-9B09 THEN 210 

200 

DATA 141 , 002 , 003 , 169 ,164,1 

200 

PRI NT "ERRORE NEI DATA”: END 


4 1 , 003 , 003 ,169, 252 ,141, 007 , 

210 

PRINT”AL1T0RUN MAKER ATTIUAT 


003,169 


0! ■’ 

290 

DATA 226 , 141 , 006 , 003 , 169 , 2 

220 

CLR : PRINT”IMPARTIRE IL C0M 


25,141, 040 , 003 , 165 , 144 , 240 , 


ANDO: NEW" 


000,169 

230 

• 

300 

DATA 147,032,210,255,076,1 

240 

DATA 169, 147, 03B, 210,255,1 


31,164,076,226,252 

- 

69, 0BB, 141,002,003, 169,003. 

310 

END 
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C 16 - PLUS 4 

Auto-Run 
per C/16 & Plus/4 


Come impedire ai ficcanaso di esaminare 
i vostri programmi, anche nel caso in 
cui ricorrano al vecchio “trucco" 
del tasto di Reset 


di Fabio Calibrò 


\^Quasi lutti i programmi in com- 
mercio. come ben sapete, sono dotati 
di Auto/Run (A/R). un procedimento 
in l.M che fa automaticamente parti- 
re un programma appena caricato 
in memoria. 

Il listato pubblicato in queste pagi- 
ne agisce nello stesso modo e ne ve- 
dremo ora le caratteristiche. 

Dovrebbe esser noto che, avendo in 
memoria un programma Basic, pre- 
mendo il tasto Ru n/Stop insieme con 
il tasto Reset, si entra, come si suol di- 
re. in ambiente Monitor. Senza cu- 
rarsi di ciò che compare sul video è 
sufficiente battere i tasti "X"e Return 
per “rientrare" in Basic. Suggerire- 
mo. ovviamente, anche una procedu- 
ra per impedire tale “rientro". 

Negli indirizzi di memoria $0302 e 
$0303 sono contenuti, rispettivamen- 
te. il byte alto ed il byte basso della lo- 
cazione di memoria in cui è contenu- 
ta l'istruzione da eseguire. Il byte bas- 
so ed il byte alto sono rispettivamente 
le due coppie di caratteri di un indi- 
rizzo esadecimale. 

I due indirizzi che contengono l'in- 
dirizzo di memoria da cui inizia la 
successiva istruzione da eseguire (in 
L.M.) vengono comunemente chia- 
mati “puntatori". 

Non appena è terminato il carica- 
mento di un programma da cassetta, 
o da disco, i puntatori sono automati- 
camente impostati a S12 e $87. vale a 


dire alla routine di READY, situata 
all’indirizzo S8712 che provvede a vi- 
sualizzare la scritta Ready e a far 
lampeggiare il cursore. 

L'A/R fa in modo che. finito il cari- 
camennto. i puntatori siano imposta- 
ti a $33 e $03. indicando cosi l'indiriz- 
zo $0333. da dove inizia la serie di i- 
struzioni che provvedono all'esecu- 
zione (Run) del programma appena 
caricato. 

Tale gruppo di istruzioni è conte- 
nuto nel buffer di tastiera (bu!Ter=a- 
rea di memoria predisposta per un 
immagazzinamento temporaneo di 
dati) situato nelle locazioni da $0527 
a 0530; da $0527 a $052 A saranno me- 
morizzati i valori $52. $D5, $3A e 
$0D. che corrispondono aU'istruzio- 
ne RUN (abbreviata nella forma rU) 
seguita dai due punti e da Return. 

Il carattere "R '. lo ricordiamo, cor- 
risponde all’esadecimale $52 (deci- 
male 82). 

E’ ora necessario inserire nella lo- 
cazione SEF (indice di coda del buf- 
fer di tastiera) il valore $04. corri- 
spondente al numero totale di carat- 
teri da considerare all'interno dello 
stesso buffer. 

Dopo che è stato impartito automa- 
ticamente il Run al programma, bi- 
sogna ripristinare i valori iniziali 
($ 1 2 e $87) e saltare, subito dopo, alla 
stessa routine $8712. 

Quando si salva (Save) il program- 
ma dotato di Autorun su disco o su 
cassetta, si salva anche la pagina di 


schermo che inizia da $0C(X) e finisce 
a $0FFF (decimali 30724071 ) e, quin- 
di, tutto ciò che compare sullo scher- 
mo al momento del salvataggio. Ciò 
comporla il fatto che. durante ogni 
successivo caricamento (Load) del 
programma dotato di A/R. sullo 
schermo sarà visualizzato ciò che 
compariva al momento del salvatag- 
gio. Da qui nasce la necessità, prima 
di salvare, di "pulire" lo schermo. 

La protezione è possibile alterando 
il contenuto del vettore della routine 
di Save. situato nelle locazioni $0330 
(byte basso) e $0331 (byte alto), e tra- 
scrivendo S5D $03 per eseguire, pri- 
ma di salvare, le istruzioni contenute 
a partire dal byte S035D. Le istruzio- 
ni cui accenniamo sono le seguenti: 

1/ memorizzare il contenuto dell'ac- 
cumulatore e dei due registri X e Y 
nelle locazioni $0390. $0391 e $0392: 
questi tre registri non sono altro che 
particolari “contenitori" che permet- 
tono di prelevare il contenuto di un 
byte, manipolarlo per mezzo di ope- 
razioni. e di memorizzarlo nuova- 
mente nello stesso, od in un altro, po- 
sto; potrebbero essere paragonati alle 
comuni variabili Basic. 

2/ inizializzare Leditor di schermo 
(cancellare lo schermo) 

3/ assegnare la posizione del cursore 
alla colonna N.O ed alla 25-esima ri- 
ga, cioè ad una posizione inesistente. 
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in modo che il messaggio “Savi ng..." 
non compaia su video. 

4/ impostare i puntatori del Maio in- 
diretto (locazioni $0302 e $0303) a 
$33 e $03. Il Main indiretto (o ciclo di 
sistema) è quel gruppo di operazioni 
che vengono eseguite automatica- 
mente dal computer ogni volta che si 
finisce di caricare o salvare un pro- 
gramma. oppure subito dopo aver 
letto la Directory da disco e in altri 
casi ancora. 

5/ ricaricare l'accumulatore ed i due 
registri con i valori precedentemente 
memorizzati in $0390. $0391 e $0392. 

6/ saltare alla routine di SAVE 
(SF1A4) 

7/ pulire nuovamente lo schermo. 

Come proteggere i vostri listati 

Abbiamo finora spiegato il funzio- 
namento del breve programma di 
grande utilità, ma non abbiamo an- 
cora detto come lare per proteggere i 
programmi Basic da occhi indiscreti. 

Seguite alla lettera le operazioni 
che seguono al termine delle quali ri- 
troverete un file che non sarà facil- 
mente accessibile: 

• Impartite il comando New in modo 
da avere la memoria libera. 

• Caricate (Load) il programma in 
Basic pubblicato in queste pagine ed 
attivarlo (Run). 


• Digitate il programma che intende- 
te proteggere oppure, se disponibile, 
caricarlo da nastro o disco. 

Per ovviare al problema che per- 
mette il trucco dei tasti Run/Stop e 
Reset, c indispensabile disabilitare il 
tasto Run/Stop. Dovete pertanto ag- 
giungere al vostro programma da 
proteggere la seguente linea: 

0 POKE 7X6.69.POKE 76X.26. 

• Digitare il comando: 

PRIN1 HEX$(PEEK(45)+256 m PEEK 
(46)) 

Dopo aver premuto il tasto Return, 
sullo schermo comparirà un numero 
esadccimale che indicherà l'ultima 
locazione di memoria occupata dal 
programma Basic in memoria (vedi 
CCC n.35 pag.8 “L’ultima spiaggia" 
per maggiori dettagli) e che dovete 
annotare a parte su un foglio di 
carta. 

•Entrare in Monitor (digitando “mo- 
nitor" <R>) e scrivere la seguente 
linea: 

> 0330 5D 03 

per cambiare il contenuto del vetto- 
re Save in modo che. è bene ripeterlo, 
il computer vada alla locazione 
$035D per i motivi precedentemente 
elencati. 

E' ora giunto il momento di salvare 
il nostro programma dotato di auto- 
mi! e per far ciò digitare (sempre in 
Monitor) la seguente istruzione: 

S 'NOMEFILE‘\A.()302. tì 
in cui. al posto di “Nomefilc" do- 
vremo scrivere il nome che intendia- 


mo dare al programma; al posto di 
“A" la periferica che si vuole utilizza- 
re (I = registratore. 8 = disk-drive) ed 
al posto di "B" quel numero esadeci- 
male prima annotato. 

Premendo il tasto Return lo scher- 
mo verrà cancellato mentre il pro- 
gramma sarà inciso su cassetta o su 
disco: Unito il salvataggio, digitando 
’ X" <R> il nostro programma do- 
vrebbe iniziare a girare, prova della 
perfetta riuscita delfiniera opera- 
zione. 


Come ha agito il programma 

Prima della fase di registrazione, 
f autom n provvede ad impostare i 
puntatori (indirizzi $0302 e $0303) a 
S33 e $03. in modo che. richiamando 
il programma, il computer abbia in 
memoria, oltre all’A/R ed al pro- 
gramma vero e proprio, i puntatori 
impostati, invece che a $12 e $87. a 
$33 e $03 e cioè all'indirizzo $0333, 
dove inizia il programma dclfAuto- 
mn. 


C ome caricare un programma 
protetto 

Per caricare il nostro programma 
dotato di automn. si deve digitare in 
Basic la seguente linea: 

LOAD NOMEE ILE ".A.H 

valido nel caso del disk drive (per il 
registratore è sufficiente eliminare 
",8) dove per "Nomefile" e "A" valgo- 
no le stesse considerazioni di prima. 
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QUALSIASI COMMODORE 

Directory N.5 


Diecine di programmi e file vari contenuti 
in centinaia di blocchi; il tutto 
per una cifra irrisoria 


Tu„i i programmi contenuti in 
questo fascicolo sono riportati nel di- 
schetto che proponiamo questo me- 
se. E' inutile dire che. oltre a questi, 
sono contenuti tanti altri file, utility e 
programmi che. di solito, decidiamo 
all'ultimo momento. 

Ci soffermeremo, invece, a descri- 
vere il corretto modo di utilizzo di al- 
cuni file presenti in Directory N.4 ag- 
giunti per la gioia di generar sor- 
prese. 

Il programma "Saluti" è un diver- 
tente gadget inviato da un nostro col- 
laboratore; provate a disassemblarlo 
per capire come funziona. 

Il file sequenziale CCC/arch/geda- 
fi " va adoperato con il programma 
Ge.Da.Fi. pubblicato sul N.37: è un 
archivio di tutti gli articoli da noi 
pubblicati a partire dal N.8. 

Il programma duplicatore (suddivi- 
so in due file) è uno della miriade di 
utility che circolano liberamente tra 
gli appassionati del C/64. Spegnete la 
stampante prima di caricare il primo 
file con la sintassi “.8.1"; questo cari- 
cherà automaticamente la seconda 
parte del file. 

I possessori del C/16 e Plus 4 saran- 
no certamente felici di trovare, sem- 
pre su Directory N.4. ben 12 tra pro- 
grammi e file da questi generati, oltre 
a quelli, naturalmente, che figurano 
tra i listati della rivista. 

Fast Format" è un programma bre- 
vissimo che consente di formattare 
ad alta velocità. 

"Append sarà utilissimo a chi si 
trova nella necessità di fondere due 
programmi Basic, numerati in suc- 
cessione. presenti su di uno stesso 
disco. 

Altri programmi vari, autoesplica- 
tivi. non necessitano di commenti. 


Partecipazione dei lettori 

Centinaia sono le occasioni per 
partecipare a ''Directory". 

Prima di inviare il risultato del vo- 
stro lavoro vi consigliamo, però, di te- 
lefonarci per stabilire se risponde ai 
requisiti per l'eventuale pubblicazio- 
ne (tei. 02/84.67.34.8) 



Come procurarsi 
"Directory” 


Avvertiamo i lettori che NON è assoluta- 
mente possibile inviare i programmi su na- 
stro. per intuibili motivi di economia ed af- 
fidabilità del nastro cassetta. 


Ogni numero di “Directory” può quindi 
esser richiesto SOIA) su disco inviando 
1.12000 per ciascun disco oltre a L.3000 
(fisse) per le spese di imballo e spedizione 
(indipendenti dal numero di dischi ri- 
chiesti). 


Chi desiderasse la spedizione raccoman- 
data. deve aggiungere altre 3000 lire per 
l'ulteriore affrancatura. 


Non ci è possibile inviare materiale con- 
trassegno: si prega di astenersi dal chiedere 
eccezioni alla regola. 

Compilate un normale modulo di C/C 
postale indirizzando a: 

C/C postale N. 37952207 
Systems Editoriale 
Viale Kamagosta, 75 
20142 Milano 

Non dimenticate di indicare chiaramente, 
sul retro del modulo (nello spazio indicato 
con “Causale del versamento'*) non solo il 
vostro nominativo completo, ma anche il 
numero del disco desiderato; esempio: 

“Directory N.l" 

"Directory N.3" 

“Directory N.4“ 

Totale: 

L. 12000x3 

1.6000 (racc.) 

= 1.42000 

(spese di imballo e spediz. racc. com- 
prese). 

N.B. Per ottenere il materiale ordinato in 
tempi più ristretti, inviate l'importo a mez- 
zo assegno bancario non trasferibile con 
lettera di accompagnamento: le poste ita- 
liane non brillano per velocità! (due mesi 
circa per il recapito di un C/C postale). 
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La più originale ver- 
sione del LOGO. 
Programma non 
proietto in basic fa- 
cilmente personaliz- 
zabile. 


lire 10.000 


ASSEM- 

BLER 

TUTOR 

Un corso completo 
sullassembler del 
C/64 in N lezioni 
interamente gestite 
dal computer, più 
un programma MO- 
NITOR 


lire 12.000 


LOGO M 


VELOCISSIMO 
BASIC 

per ( 64/128. Ciò & 

Plus 4, V1SX e Spec- 
tmm. 

Corso completo in 
13 lezioni su 4 cas- 
sette interamente ge- 
stite dal computer. 

Il corso è diviso in 4 
parti, ciascuna delle 
quali contiene la 
versione specifica 
per il computer cui 
si riferisce 


lire 24.000 


24 ORE 
BASIC 

Il corso di basic più 
veloce per C/64 13 
lezioni su 4 cassette 
con una introdu- 
zione "parlata ' 
Turo il basic senza 
libn nè dispense. 

lire 24.000 


u PASCAL 
PER C64 


11 volume introdut- 
tivo sul Pascal della 
collana i "libri Sy- 
stems" completata 
dalla cassetta con il 

P rogramma compi- 
lare. 

lire 19.500 (libro 
4 cassetta) 


MS-DOS 

& 

GW- BASIC 

emulator 

Il primo pro- 
gramma in grado di 
emulare sul C/64 il 
sistema operativo ed 
il più di Muso basic- 
dei PC Ibm. 

lire 12.000 su cas- 
setta 

lire 25.000 su disco 



Si. inviatemi al più presto il seguente software, al prezzo contrassegnato, più lire 3.000 per spese di spedizione: 


□ VELOCISSIMO BASIC (24.000) 

□ ASSEMBLER TUTOR (12.000) 

□ MS-DOS & GW-BASIC EMULATOR 

□ versione cassetta (Lire 12.000) 

□ versione disco (Lire 25.000) 


□ 24 ORE BASIC (Lire 24.000) 
l PASCAL PER COMMODORE 64 (Libro + 
H cassetta lire 19.500) 

C LOGO 64 (Lire 10.000) 


Importo totale lire: 


Su tale importo mi praticherete lo sconto del 1 0% in quanto abbonato a L Commodore Computer Club [ Personal Computer D Com- 
puter □ VR Videoregistrare. Pertanto vi invio la somma soltanto di lire 

□ Desiderando ricevere le copie ordinate con la massima urgenza, accludo assegno bancario n.ro 

Banca per lire. voi intestato. 


□ Contentandomi dei normali tempi postali ho inviato oggi stesso l'importo di lire a mezzo C/C postale N. 37952207 

intestato a Systems Editoriale - V.le Famagosta. 75 - 20142 Milano. 


Ritagliare e spedire in busta chiusa regolarmente affrancata a Systems Editoriale - V.le Famagosta. 75 - 20142 Milano 


Nome ... 
CAP 


•••••••••••«••••••••••••••••••••«•••••••••••••■••a 


•••••••a 


»••••••••••••• N.ro 


••••••• •••••••«••••• 

••••••• 


••••••••••••a 

■••••••••••••« 

Città .... 


• •• 


•••••••••••••••« 

telefono 


•••••••••••••••••••••••••••••••••••••••«••••••••■a* 

••••••••••••••••••••••••••••••••••••••••••••••••••a 


PERIFERICHE 

QUALSIASI COMMODORE 


Come fare una tabella 


Utilizzate la stampante in una delle sue principali applicazioni 


l*aolo Agostini 


HEX 0123456709ABCDE 

0 0 1 e 3 4 5 6 7 0 3 10 11 12 13 14 15 

1 lb 17 10 19 20 21 22 23 24 25 26 27 20 29 30 31 

2 32 33 34 35 36 37 30 39 40 41 42 43 44 45 46 47 

3 40 49 50 51 52 53 54 55 56 57 50 59 60 61 62 63 

4 64 65 66 67 60 69 70 71 72 73 74 75 76 77 70 79 

5 00 01 02 03 04 05 06 07 00 09 90 91 92 93 94 95 

6 96 97 90 99 100 101 102 103 104 105 106 107 100 109 110 111 

7 112 113 114 115 116 117 110 119 120 121 122 123 124 125 126 127 

0 120 129 130 131 132 133 134 135 136 137 130 139 140 141 142 143 

9 144 145 146 147 140 149 150 151 152 153 154 155 156 157 150 159 

0 160 161 162 163 164 165 166 167 160 169 170 171 172 173 1/4 175 

B 176 177 170 179 100 101 102 103 104 105 106 107 160 109 190 191 

C 192 193 194 195 196 197 190 199 200 201 202 203 204 205 20b 20/ 

D 200 209 210 211 212 213 214 215 216 217 210 219 220 221 222 223 

E 224 225 226 227 220 229 230 231 232 233 234 235 236 237 230 239 

F 240 241 242 243 244 245 246 247 240 249 250 251 252 253 254 255 


Se avete comprato da poco una gliarc la tabella dalla rivista. Il suo u- gruppo di 256 valori determinati da 
stampante, con queste poche righe so è quasi banale: la prima cifra esa- un Input precedente. 

Basic potrete non solo ottenere un u- decimale va letta sulla riga verticale. Tanto p^hia^ , e idee , la Ia be,la 
.''e l:| hella per convertire in notaz.o- la seconda Cifra esadec.ma le sulla n- . bb , icata dovrebbe rapprcscn- 
ne- decimale valor, esadecimal. d. 2 ga orizzontale posta in testa alla ^ u , cón , c primc duc dfre 

afre (e viceversa) ma. soprattutto, a- tabella. impostate a “00": la tabella, ad esem- 

vere a portata d. mano un esempio Per esercizio .1 lettore provi a rea- jo j tata con » or dovrebbe a . 
semplicissimo per imparare a real.z- lizzare una tabe la analoga per la V(;rc come rimo va , ore 256 e comc 
zare tabelle ordinate di qualsiasi (or- conversione di valori esadecimali a 4 u nj mo 51 1 c cosi via 
ma e dimensione. cifre in modo che su stampante sia 

Chi. invece, non possiede una sempre visualizzata una tabella del Siete sicuri che sia una cosa molto 
stampante, potrà fotocopiare o rita- formato 16x16. ma relativa ad un semplice? Provate, e fatecelo sapere... 

90 REM TABELLA DI CONUERSIONE 1B0 NEXT : PRINT#4 

9B REM DECIMALE - ESADECIMALE 1S0 FOR 1-1 TO 70 

93 REM BY PAOLO AGOSTINI £00 PRINT#4 , CHRSC61 ) ; 

100 OPEN 9,4: REM STAMPANTE B10 NEXT:PRINT*4 

110 HS-' , 01£34567B9ABCDEF” ££0 FOR 1-0 TO 15 

1B0 FOR 1-1 TO 70 £30 PRINT#4 , CHRSC3B) ;MlDStHS, 1+ 

130 PR INT#4 , CHR$( 61 ) ; 1 , 1 ) ; SPCCE) ; 

140 NEXT ; PRINT#4 £40 FOR J-0 10 15 

150 PR INT#4 , “HEX " ; SPCC 31 ; £50 OS-STRSC01 : U-U+l 

160 FOR 1-0 TO 15 £60 PRINT#4, SPCC4-LENC04) ) ;U3>; 

170 PR I NT#4 , MI DSC HS , 1*1,1); SPCC E70 NEXT : PRINT#4 : NEXT 
3) : eB0 CLOSE 4: END 
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e simmetrie 


100 REM CURVE DI PEANO: PROGRAMMA GRAFICO Vi /\ N 

110 REO PER COMPUTER C/16, PLUS/M, C/180 7 ^ A 

180 REM BY DOMENICO CARRO - ROMA & A À/V 

1 30 : 

IMO COLORO. 1 : COLORM , 1 1 COLORI ,8,3: SCNCLR 

150 PRINTPHMU CURUE DI PEANO" 

160 PRINT "«UFI CURE MATEMATICHE OTTENUTE SOSTITUENDO «FER TANTE" 
170 PRINT" UOLTE (GRADO 01 DEFINIZIONE)," 

100 PRINT"«TON LE ‘FIGURE DI RACCORDO 1 PRESCELTE, HI "• 

190 PRINT "SEGMENTI COSTITUENTI IL PERIMETRO DI" 

800 PR I NT " «UNA FIGURA REGOLARE. SI OTTENGONO COSI’ «DELLE "; 

810 PRINT" ‘STELLE * CON UN NUMERO DI BRACCIA" 

880 PR I NT "«FARI AL NUMERO DI LATI DELLA FIGURA" 

830 PR I NT "«M UUOI SCEGLIERE I PARAMETRI ? CS/N)" 

8M0 GETKEYAS: I FAS- "S‘‘THEN31 0 : ELSE I FAS< > "N"THEN8M0 
850 PRINT "«PARAMETRI IT^SUALI O DA IDEOGRAMMA ?" 

860 GETKEYAS: I FAS-"C"THEN610 : ELSE I FAS< > "P "THEN8G0 

870 PR-1 ; K-K*l : IFK> 10THENK-1 : RESTORE 

860 READS , P , N : U-0 : G0T03SE 

890 DATA M.5.3.6.6.8.5.6.3.M.M.M.S.5.8.5.S 

300 DATA M.M.0.e.3.3.M.6,6.3.M,6.3 

310 PRINT" ttHfldttftlddeUfeUUEkl " 

380 PRINT‘‘«I?i«DUMERO DI BRACCIA " ; : G0SUB590 . S-A : PR INTS 

330 PRINT "«FIGURA DI RACCORDO " ; : GOSUB590 : P-A : PR I NTP 

3M0 PRINT"«DRAOO DI DEFINIZIONE “ ; : G0SUBS90 : N-A : PR I NTN 

350 I FW-0THENGRAPH IC1 . 1 :W-1 :CHAR1 ,0.0, STR$( S)-*STRS( P ) -*STR$( N) 

360 GRAPHIC1 : COLORI .8.3 :GR—8»n/P: R--8-W/S 

370 F0RI-8T0P-1:D(I)— GR : NEXT : DC 1 )-GR»( P-8)/2 : OC P)-DC 1 ) 

300 X* 160 : Y-0 : LOCATEX , Y : AN-R/8* •: L“1 99*S lN(R/8)/3TN 

390 FOR 1-1T0S:F0RK-1T0N: 000-0 : NEXT : GOSUBS60 : AN-AN+R : NEXT 

M00 I FPR-1THENF0RQ-1 TO3000 : NEXT : G0T0870 

MIO I FCA- 1 THENFORQ- 1 TO3O00 : NEXT : G0T061 O 

M80 GETKEYAS 

M30 GRAPHICS 

MM0 PRINT"«I?1*PNC0RA (5/N)" 

M50 GETKEYAS 

M60 I FAS- "N “THENGRAPH I CO : SCNCLR : END 

M70 PRI NT " «CANCELLO SCHERMO HI-RES’ C S/N ) " : GETKEYAS 

MBO U)-0: I FAS— "N"THENUI-1 

M90 PR I NTCHRSC 1M7 ) : GOTO310 

500 K-0 

510 K-K* 1 

580 I FK>NTHENRETURN 

530 I FOC K )-PTHENO( K )-0 : G0TQ51 0 

5M0 0(K)-0(K)*1 

550 AN-AN*D(0( K ) ) 

560 X*X *COS ( AN ) *L : Y— Y-S I NC AN) *L 

570 DRAJ1T0X. Y: REM ATTENZIONE A NON FINIRE IN “ILLEGAL QUANTITY 
560 GOTO500 

590 GETKEYAS: A-UALCAS): IFA<1THENS90 
GC0 RETURN 

610 CA-1 : S— I NT C RNDC0 ) *3 ) *M : P- I NT C RNDC 0 ) *5 ) -*M 
680 N- 1 NT ( PND C 0 ) »3 ) ♦ 1 : W-0 : GOTO350 


Un interessante 
adattamento 
di una procedura 
grafica 

pubblicata tempo fa 


di Domenico Carro 


1 ^lon ci dilungheremo a descrivere 
la teoria delle curve di Peano, basate 
su una procedura matematica parti- 
colare (ricorsività) descritta sul N.27 
dlC.CC. 

Il lettore dovrà limitarsi a digitare il 
programma e ammirarne le stupende 
immagini simmetriche che compaio- 
no sul video. 

Eventuali errori (in genere: Illegal 
Quantity) sono dovute a parametri 
non in regola con i limiti imposti 
dal computer. 


SCHEDA TECNICA 


Software applicativo per 
grafica 


Idoneo per computer: C/16 Plus/4 
C/128 


Consigliato ai principianti 


C/16 Plus/4 C/128 
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GW-BASIC 

C64 - PC 10/20 - IBM PC 


I file sequenziali 

in ambiente 
Gw-Basic 


Una spiegazione dettagliata su come utilizzare 
la sintassi Gw-Basic attraverso 
la gestione di un semplice Data Base 

alla portata di tutti 


di Roberto Mango 


O^ome avevamo promesso nel li- 
bretto di istruzioni dell'Ms-Dos c 
Gw-Basic. ci occupiamo, su questa 
rivista, di programmi da implemen- 
tare sia sul C/64, dotato di emulatore 
Gw-Basic. sia su PC-IBM o com- 
patibili. 

La sola differenza interesserà l’out- 
put su video, che da 40 colonne (caso 
del C/64) passa a 80 sull'IBM: gli e- 
ventuali possessori di quest'ultimo 
computer potranno, modificando il 
programma pubblicato, ottenere l'u- 
scita anche sulle 80 colonne: poche 
Print in meno e qualche Tab in più e 
il gioco è fatto! 

Sottolineamo, comunque, che il pro- 
gramma pubblicato in queste pagine, digi- 
tato su un C/64 (dotato di emulatore Gw- 
Basic) e su un qualsiasi IBM compatibile, 
fornisce gli stessi risultati. 

11 listato, ovviamente, è soprattutto 
didattico grazie alla semplicità di im- 
postatzione. ma è anche versatile: per 
una rubrica, una lista di programmi, 
una serie di dati da riordinare e poi 
stampare; è, insomma, un piccolo 
Data Base. 

E’ possibile naturalmente modifi- 
carlo per scopi particolari: chiunque 
sappia programmare in Basic potrà 
cimentarsi a modificarlo e a miglio- 
ralo con estrema semplicità. 
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( ome usare il programma 

All’inizio il programma chiede 
quanti elementi, al massimo, si desi- 
dera inserire. In effetti non c'è un li- 
mite vero c proprio se non nella Ram 
disponibile, ma con un C/64 non si 
può certo esagerare. Se. infatti, non 
dovesse comparire subito il messag- 
gio “Out o! memory error questo 
potrebbe esser visualizzato nel mo- 
mento meno opportuno, per cui sarà 
bene salvare l’archivio ad intervalli 
regolari, per evitare la perdita di dati 
(e di tempo); ricordate che il C/64 di- 
spone. in ambiente Gw-Basic. di soli 
26K-Ram. e il PC-IBM di circa 64K. 
in cui deve essere allocato anche il 
programma e le altre variabili che. da 
soli, occupano 5-6K circa. 

Dopo il numero di elementi da me- 
morizzare. verrà richiesto il numero 
di campi per ciascun elemento e se si 
desidera, o meno, assegnare una lun- 
ghezza prefissata ad ogni campo. In 
caso di risposta positiva (premendo il 
tasto ’’S") il computer ne chiederà la 
lunghezza massima, altrimenti que- 
sta assumerà il valore di default 40; 
ciò significa che ogni elemento potrà 
al massimo assere lungo 40 caratteri. 
Qualora si desiderasse modificare il 
valore di default, si dovrà cambiare il 
valore 40 in linea 190. 

In ogni caso la lunghezza massima 
di una stringa sarà di 255 caratteri. 

Completate le operazioni descritte, 
il computer presenterà un menu di 
opzioni da selezionare premendo il 
tasto corrispondente. 


1 - Inserimento Dati 

Viene visualizzato il numero di ele- 
menti liberi e quello relativo al re- 
cord che ora inserirete; il computer 
chiede, campo per campo, l'elemento 
corrispondente; se il primo elemento 
è nullo, il computer tornerà al menu 
senza proseguire nel lavoro. Inseriti i 
dati il computer chiede conferma cir- 
ca la loro validità. 

2- Ordinamento dati 

Con questa opzione il computer 
chiede conferma in modo da evitare 
un ordinamento indesideralo. Pre- 
mendo “S" si accederà all'ordina- 
mento vero e proprio in base al cam- 
po specificato. 

3- Vifttialii/a Dati 

Viene visualizzato, elemento pere- 
lemento. l'intero archivio: premendo 
la barra spaziatrice si proseguirà nel- 
la visualizzazione dell’elemento suc- 
cessivo. fino al termine dell'archivio. 

4- Stampa Dati 

Il computer stampa sulla stampan- 
te. provvidenzialmente accesa in pre- 
cedenza. l'archivio memorizzato. 

5- Save Dati 

Con questa funzione (previa con- 
ferma) il programma salverà su disco 
l'archivio presente in memoria do- 
tandolo del nome assegnato che deve 
essere lungo al massimo otto caratte- 
ri (in accordo con i limiti del “vero" 
Gw-Basic). a cui suggeriamo di ag- 
giungere il suffisso ’.dat ". che corri- 
sponde alla estensione per i compu- 
ter Ms-Dos. 


Se si inserisce, al posto del nome, il 
simbolo del dollaro ($). il computer 
mostrerà la directory' del disco per 
poi chiedere nuovamente il nome da 
assegnare al file. Se battete Return “a 
vuoto " tornerete al menu. 

6- raricamento dati 

Dopo l'abituale conferma, il com- 
puter chiederà il nome del file da ca- 
ricare. Anche in questo caso si ha la 
possibilità di visualizzare la direc- 
tory del dischetto o di tornare al me- 
nu. Ricordate però che l’archivio sal- 
vato deve essere delle stesse dimen- 
sioni (elementi e campi) che sono 
state inserite all'inizio, per evitare 
spiacevoli conseguenze. Un consi- 
glio: scrivete il numero degli clemen- 
ti e dei campi nel nome stesso del file 
al momento di salvarli, per poterli 
poi ricordare più facilmente. 

7- Uni* Programma 

Dopo la necessaria conferma si u- 
scirà dal programma perdendo i dati 
in memoria: attenzione ad usarlo 
saggiamente. 

Come funziona il programma 

Le note che seguono potranno esser 
comprese soprattutto dagli esperti 
ma, se lette con attenzione, saranno 
comprensibili anche per coloro che 
sono alle prime armi in fatto di 
programmazione. 

Linee 100-230: laiziaUzzazione 

Viene richiesto il numero degli ele- 
menti. quello dei campi e le loro lun- 
ghezze. II tutto è di fondamentale im- 
portanza per il programma, 
linee 240-380: Menu 

Serve per le scelte, presentate con 
semplici comandi Print. Ecco alcune 
note circa le modifiche da apportare 
per ottenere l'output su video dei 
compatibili IBM: aumentando i va- 
lori delle Tab si potrà centrare sullo 
schermo il menu, che altrimenti ri- 
sulta spostato sulla sinistra: per il 
(764 il Menu è perfettamente cen- 
trato. 

linee 430-560: Inserimento dati 

E* la funzione principale del pro- 
gramma: in queste poche righe vi so- 
no le richieste circa i dati memoriz- 
zati nella matrice DT$, e la regola- 
zione della lunghezza della stringhe, 
il cui valore si trova nella matrice 
LN% 
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linee 570-740: Ordinamento Dati 
La funzione eli bubblc sort qui de- 
scritta è una delle più veloci e sicure: 
le stringhe vengono confrontale una 
ad una e poi riordinate; la procedura 
è valida per qualunque computer do- 
tato di una qualsiasi versione Basic. 
Linee 750-880: Visualizza dati 
Viene presentato, con due semplici 
cicli nidificati, l'intero archivio, ele- 
mento per elemento; la pressione di 
un tasto consente la stampa dell'ele- 
mento successivo. 

Linci* 890-980: Stani|>u Dati 
Con gli stessi due cicli nidificati 
viene stampato l’archivio. 

linee 990-1260: Save e l»ad dati 

Le due routine sono simili (e. so- 
prattutto. simmetriche) e servono per 
caricare e salvare i file sequcziali di 
dati. Possono essere migliorate inse- 
rendo maggiori controlli sul disco 
(controllo errore, comandi al Dos), 
ma in questo caso è necessario effet- 


tuare personalizzazioni in base al 
computer posseduto. 

Conclusione 

Ribadiamo che il programma qui 
presentato è di uso soprattutto didat- 
tico. ma anche pratico: invece di pro- 
grammi specifici per rubriche, liste 
ed altro, il listato può essere una vali- 
da alternativa sia per la brevità che 
per la versatitilità che lo caratterizza. 

Un'ultima nota: il C/64 ha due set 
di caratteri. l'IBM no. Con il C/64 si 
può passare da uno all'altro con faci- 
lità (premendo i tasti Commodore e 
Shift). ma il programma stampa solo 
nel set Maiuscolo/C ira fico ed è prefe- 
ribile adottare questo nei propri ar- 
chivi: un'eventuale modifica è possi- 
bile. LPrintando su stampante il co- 
mando relativo. 

Infine nel simulatore Gw- Basic del 
C/64 il comando INKEYS ha lo spia- 


cevole effetto di lasciare intatto il 
buffer di tastiera con la conseguenza 
che ad un successivo comando di In- 
put. appariranno i tasti premuti in 
precedenza, richiesti dall'Istruzione 
INKEYS (scelta del menu, delle con- 
ferme. eccetera). I sufficiente però 
battere le seguenti linee per ottenere 
un output più "accettabile” 

165 KOKEI98.0 
355 POK.K I9H.0 
525 POKE 198,0 
585 POKE 198.0 
765 POKE 198.0 
855 POKE 198.0 
905 POKE 198.0 
1005 POKE 198.0 
1145 POKE 198,0 

Il programma, cosi come si presen- 
ta. è tuttavia perfettamente funzio- 
nante. La modifica sopra descritta è 
valida per il solo (764 e non riguarda 
le macchine IBM compatibili, su cui 
produrrebbe risultati imprevedibili. 


10 rem 
20 rem 
30 : 

40 rem 
50 rem 
60 rem 
70 : 

100 rem *»***•• 

110 els : print 
120 input em 

130 print tab(5) "Quanti campi per elemento” 

140 dim dt$ C em, cc ) : in ■ 1 

150 print ”Uuoi dare una lunghezza per ogni campo 


gestione dei file sequenziali 
in ambiente "Guj-Basic” 

programma idoneo per computer "Ms-Dos” compatibili 
e Commodre 64 dotato di emulatore Gui-Basic 
della Sgstems Editoriale 


+* m iniziai izzaz ione 

print : print tab(5) "Quanti elementi max 


n 


input cc 


160 

170 

1B0 

130 

200 

210 

220 

230 

240 

250 

260 


x$-”” : x$ - inkeyS : if x$ <> ”s” and x$ <> 
dim ln^ (cc) 
if xS-”s” then 200 
for i - 1 to cc : 
for i - 1 to cc 
ln^;-0: print ”Lungh. campo ”i 
if ln^>255 or ln*-<0 then 210 


”n ” 


(s/n) ?” 
then 160 


(i) - 40 :next 


goto240 


input ln^ 
else ln>i(i)-ln^ 


next i 

rem ********* 

els : print : 
print tab(13) 
270 print : print 
200 print tab( 10 ) 
230 print tab( 10 ) 
300 print tab(10) 


menu 

print : print : print tab(13) "Menu Principale” 


» 


if 


: print tab(10) ”1 - Inserimento Dati 
”2 - Ordinamento Dati” 

”3 - Uisualizza Dati” 

”4 - Stampa Dati” 


99 
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310 

320 

330 

340 

350 

360 

370 

3B0 

330 

400 

405 

410 

415 

420 

430 

440 

450 

460 

470 

400 

490 

500 

510 

520 

530 

540 

550 

560 

570 

500 

590 

600 

610 

620 

630 

640 

650 

660 

670 

600 

690 

700 

710 

720 

730 

740 

750 

760 

770 

700 


print tabC 10) ”5 - Save Dati” 

print tabe 10) ”6 - Caricamento Dati” 

print tabei0) ”7 - Fine Programma” 

print : print : print tabei3) ”Quale scelta ?” 

x$-”” : x$- inkeyS : if x$ ■ ”” then goto 350 

if valCxS) <1 or valCxS) >7 then x$-”” : goto 350 

on valCxS) gosub 430,570,750,090,990,1130,390 

goto 240 

rem **************** fine programma 
els : print : print : print 

print : print : print : print ”Sei sicuro (s/n)?" 
x$-”” ; x$ - inkeyS 

ifxS - ”n” then return: else if x$ <> ”s” then 410 
end 

rem *******•••**•• inserimento dati 
if em - in <0 then return 

els : print : print "Elementi Rimanenti : ” em-in 
print "Elemento Numero ” in 
For i - 1 to cc 

print : print : print "Campo n.” i ; 

ccS-”” : input cc$ : if ccS - ”” and i-1 then return 

ccS - cc$+space$Cln*Ci)) : dt$ C in, i) - leFtSCccS , ln^C i ) ) 

next i 

print : print : print "Tutto Dk Cs/n) ” ; 
xS -”” ; x$ - inkeyS : iF x$ - ”” then 530 
iF x$ - ”s” thBn in - in +1 : return 
iF x$ - ”n” then return 
goto 530 

rem ***•***••**•••**•** ordinamento 

els : print : print : print : print "Tutto ok Cs/n) ?” ; 
x$ : xS - inkeyS : iF xS - ”” then 590 

iF x$ - ”n” then return 

print : print : input "Ordinamento su quale campo co 

iF co <0 or co > cc then 610 

ix-in-1 

od - 0 : rem inizio del bubble sort 
For i - 1 to in-2 

iF dt$C i , co) > dt$C i+1 , co) then gosub 710 
next i 
ix -ix-1 

iF (ix>l) and Cod-1) then 640 
return 

For ii - 1 to cc : x$ - ”” 

x$ - dtSCi.ii) : dtSC i , ii ) - dt$C i+1 , i i ) : dtSCi+l,ii) - x$ 
next ii 

od - 1 : return 

rem ••**•******«••** visualizza dati 
els : print : print : print”Tutto ok Cs/n) ” ; 
x$-”” : x$— inkeyS : iF x$ • ”” then goto 770 
iF x$ - ”n” then return 
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Fa parlare e cantaro il C64 
secondo come lo pro- 
grammi senza l'uso di 
campionatori né smteti? 
zatori. 

Tutte le parole o le canzo 
ni cosi prodotte possono 
essere inserite come stnn- 
ghe in altri programmi. 



Un programma per d se 

a are col tuo Comodore 
col solo joystick senza 
Koala né tavoletta grafi- 
ca 

Tutti disegni prodot 
possono essere memo- 
rizzati ed uti lizzali m altri 
programmi 

Lire 10.000 




OROSCOPO 

Fa in man era tcenttca 
l’oroscopo pe'sonaie il 
pru completo programma 
asfrotogico pe» Commo- 
dore 64 


Lire 12 000 


COMPUTER 

MUSIC 

Un m u sic editor avanzato 
piu per un programma 
luke-bo* con 27 motivi 
celebri d« mus.ca classica 
e ieg ge*a da Arcadia a 
Bacn Vrvatd ZeppvMn 

Lire 12 000 



GESTIONE 

FAMILIARE 

Tre p'ogramm. su casset- 
ta che giustificano lag 
geftivo domestico' de 
tuo computer 

• bilancio familiare. 

• dieta equilibrata.. 

• scheda medica lami 
tiare 

Gira su C/64/ 128 

Lire 12 000 




BANCA DATI 


Un potonto data baso po» 
C/64 o Spectrum dispo 
nibile anche su disco 
L edizione su cassetta 
contiene da un lato la ver- 
sione C64 e dall’altro la 
versione Spectrum 

Lire 12.000 



DICHIARAZIONE 
DEI REODITI 
(740/S) 


Programma aggiornato al 
1986 per la dichiarazione 
dot rodd ti. modello sem 



MATEMATICA 

FINANZIARIA 


Pubblicato a puntate su 
Commodore (n.n 13. 14 e 
15) e su Personal Com- 
puter (n.ri 1.2. 3 e 4) quo 
sto programma offro un 
vero e proprio corso com- 
pleto di ragioneria su 
Commodoro 64. 

Se ne consiglia l’acquisto 
insieme agii arretrati delie 
riviste che ne illustrano 
l'uso ed il funzonamonux 

Disco lire 20.000 
Cassetta lire 10.000 

Comodore 13. 14 e 15 c 
Personal Computer 1. 2. 
3 e 4 

Ure 21.000 



ANALISI 
01 BILANCIO 


Naturalo compiotamonto 
di "Matematica Finanzia- 
ria" questo programma 
consento di calcolare au- 
tomaticamente tutti • ratio 
piu significativi e di con- 
frontare due bilanci detto 
stesso onte 

il testo esplicativo é stato 
pubblicato su Personal 
Computer n.n 2. 3. 4 e 5 
che si consiglia di acqui- 
stare contemporanea 
mente. 

Disco Lire 20.000 

Cassetta Ure 10.000 
Personal Computer 2, 3, 

4 e 5 Ure 12.000 


ptlficato. Per C64 

Disco Lire 20.000 
Cassetta Lire 12.000 



ARREDARE 

Un programma proto* - 
stonato por ottimizzare le 
soluzioni d'arredamento 
delia vostra casa 
N.B gira solo sotto Si- 
mon 's Basic 


GRAPHIC 
EXPANDER 121 

Un potente programma 
grafico per il c 1 28 in mo- 
do 128. 

Ure 20.000 


Disco Lire 20.000 
Cassone Lire 10.000 


SI, inviatemi I seguenti software al prezzo di listino + Lire 3.000 per spese di spedizione: 


□ RAFFAELLO 
D LA VOCE III 

□ OROSCOPO 

□ COMPUTER MUSIC 

□ GESTIONE FAMILIARE 

□ BANCA DATI 


□ MATEMATICA FlNANZIARIA/DlSCO 

□ MATEMATICA FINANZIARIA/CASS. 

□ MATEMATICA FINANZIARIA/RIVISTE 

□ ANALISI DI BILANCIO/DISCO 

□ ANALISI DI BILANCIO/CASS. 

□ ANALISI DI BILANCIO/RI VISTE 


L) DICHIARAZIONE DEI REDDITI/DISCO 

□ DICHIARAZIONE DEI REDDITI/CASS. 

□ ARREDARE/DISCO 

□ ARREDARE/CASSETTA 

□ GRAPHIC EXPANDER/DISCO 


Valore complessivo: Lire 

Su tale importo mi praticherete lo sconto del 10% in quanto abbonato a C Commodore Computer Club □ Personal Computer □ Com- 
puter □ VR Videoregistrare. Pertanto vi invio la somma soltanto di lire 


□ Desiderando ricevere le copie ordinate con la massima urgenza, accludo assegno bancario n.ro 

Banca per lire voi intestato. 


□ Contentandomi dei normali tempi postali ho inviato oggi stesso l'importo di lire a mezzo C/C postale N. 37952207 

intestato a Systems Editoriale - V.le Famagosta, 75 - 20142 Milano. 


Ritagliare e spedire in busta chiusa regolarmente affrancata a Systems Editoriale - V.le Famagosta. 75 - 20142 Milano. 


Nome 

via 

CAP 


•••••••••••••••• 


»••••••• •••••••••••••••••■ 


N.ro • — M W M 


telefono 


Città 


••••••••••••••••■••••«•••••••■••••■•••••••••■••••■•••••••a 

••••••• ••••••••••••••••••••••••••••• •••••••••••••••••••••• 




••••■••••••••a 
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790 if xS <>”s” then 770 

800 For i ■ 1 to in-1 

010 print "Elemento Num . ”i” 

820 For ii - 1 to cc 
B30 print dt$Ci,ii) 

B40 next ii 

050 print ” 

080 x$-”” : xS- inkeyS : iF x$ <> " ” then got 
070 next i 
880 return 

890 rem ******************* stampa dati 

900 cls : print : print : print”Tutto ok Cs/n) 


then goto 860 


090 
900 

910 xS-”” : x$- inkeyS : iF xS ■ then goto 9 

920 iF xS ■ M n" then return 

930 iF xS < > "s " then 910 

940 For i - 1 to in-1 

950 For ii ■ 1 to cc 

960 lprint dt$Ci,ii) ” " ; 

970 next ii : lprint : next i 
980 return 

990 rem ********************* save dati 

1000 cls : print : print : print”Tutto ok Cs/n) 


rem 

cls 


print : print 


x$ - 


then goto 910 


next 


then goto 1010 


1010 x$-”” : xS- inkeyS : iF x$ - "" then goto 1010 
1020 iF x$ - ”n” then return 
1030 iF x$ <>”s” then 1010 

1040 noS-" print : print : print : input "Nome Fil 

1050 ìF noS-”” then return 

1060 iF no$ then Files : goto 1040 

1070 open #1, leFtS CnoS , B) + ” .dat” 

1000 For i - 1 to in-1 
1090 For ii - 1 to cc 
1100 print#l,dt$Ci, ii) 

1110 next ii : next i 
1120 dose 1 : return 

1130 rem •*••*****••••• caricamento dati 

1140 cls : print : print : print”Tutto ok Cs/n) ” ; 
1150 xS-”” : x$- inkeyS : iF x$ - ”” then goto 1150 
1160 iF x$ - ’*n” then return 
1170 iF xS <>"s” then 1150 

1180 noS-” " : print : print : print : input "Nome Fil 

1190 iF no$ then Files : goto 1100 

1200 iF noS"”” then return 

1210 open "i”, n 1, leFt$ Cno$ ,8)+” .dat” 

1220 For i - 1 to em 
1230 For ii ■ 1 to cc 
1240 input#l , dtSCi.ii) 

1250 nextii 

1260 iF eoFCl)-l then goto 1280 
1270 nexti 

1280 in-i+1 : closel : return 


input "Nome File di dati”; noS 


e di dati”; noS 
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SUL SENTIERO DELLE GIUBBE ROSSE 



Una vera esperienza di vita per i ragazzi/e oltre i 10 anni 
Abbinare lo studio della Lingua Inglese, al contatto di una natura incontaminata 
Una vacanza-studio unica ed indimenticabile, in uno scenario che non ha confronti. 



Questo tipo di vacanza è 
indirizzato sia ai principianti, sia 
a coloro che hanno già 
maturato una conoscenza della 
Lingua Inglese, ma il 
denominatore comune è il reale 
contatto con la natura. 

• Un viaggio di 19 giorni 
attraverso la Provincia 
dell Ontario a bordo di un 
“Super Van” da 15 posti, con 
aria condizionata e stereo 
System, con l’assistenza di 
personale qualificato. 

Ogni 10 partecipanti ci sono 4 
persone di assistenza. 

Le attività standard includono: 

• partecipazione alla vita di 
campeggio, canoa, tracking, 
pesca, white-water rafting, 
ginnastica, nuoto e studio della 
Lingua Inglese. 

Quest'ultimo aspetto sarà curato 
da insegnanti specializzati dello 
SHENKER INSTITUTE OF 
ENGLISH, con due ore di 
lezione al giorno, seguendo il 
METODO SANDWICH di 
GEORGE SHENKER. 


• Viaggio Andata/Ritorno 
MILANO/TORONTO in classe 
turistica. 

• Tre pasti al giorno dalla 1 a 
colazione del secondo giorno, al 
lunch del 17 giorno.* 

• Full-Day Immersion di Lingua 
Inglese con personale 
SHENKER più 2 ore al giorno di 
corso intensivo. 

• Materiale audio-didattico per il 
Corso comprendente: 

• Walkmann 

• Cassette 

• Libri di testo e work book 

• Assicurazione completa 
EUROPE-ASSISTANCE. 

• Pernottamenti in hotel di 
categoria superiore e in 
Campeggi nei “NATIONAL 
PARKS". 

• Tutte le tasse d'iscrizione, 
attrezzatura da pesca 

• canna da pesca con mulinello 

• licenza di pesca 

I costi di noleggio del Super 
Van e tutti i costi annessi: 

• benzina 

• autostrade con pedaggio 


Il programma si divide in 4 diversi turni a partire dall’ultima settimana di giugno 

Prenotazioni e informazioni presso: 

SHENKER INSTITUTE OF ENGLISH - Corso Monforte, 36 (MI) - Tel. 02/700332/700363/700929 

ore ufficio - Sig.ra Sawchik - Olivieri (ore serali) Tel. 039/513211 

UVET - Viale Ferdinando di Savoia, 4 (MI) - Tel. 02/675061 (30 linee) c v . v 

ore ufficio - Sig. Biagi 

SYSTEMS - Viale Famagosta, 75 (MI) - Tel. 02/8467348/9 

ore ufficio - Sig. Tidone 
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Software Club 


Software 

Club 

#14 


Ecco i programmi di 
Software Club #74 


E in edicola il nuovo numero di 
Software Club che, come sempre, 
contiene numerosi programmi per i 
computer più diffusi: C/64-128, 
C/16, Vie 20, Spectrum e MSX. 

Riportiamo qui di seguito i “te- 
mi'* relativi ai programmi dedicati 
agli utenti Commodore. 

COMMODORE 64 

Target 

Una favolosa simulazione di poli- 
gono di tiro. Allenatevi a centrare i 
bersagli posti davanti a voi con le vo- 
stre armi, il fucile ad aria compressa, 
la pistola calibro 22 e quella ca- 
libro 38. 

Caricato e lanciato il programma, il 
computerchiede il numero dei gioca- 
tori e il loro nome. 

Conclusa questa fase potete scegliere 
a quale esercitazione partecipare: la 
vostra arma è controllata dal Joystick 
in porta 2. 

Il computer presenta le tre possibili 
prove: il tiro col fucile ad aria com- 
pressa, la pistola calibro 22 o 38; inse- 
rendo il numero relativo alla prova 
prescelta e premendo RETURN si 
entra nel poligono ... 

Fucile ad aria compressa: 

Avete a disposizione 10 colpi per 
colpire il bersaglio, una serie di qua- 
drati concentrici, e più vi avvicinere- 
te al centro più punti vi verranno at- 
tribuiti; in alto viene visualizzato il 
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nome del giocatore, i colpi a disposi- 
zione. i punti relativi al tiro effettuato 
e i punti totalizzati fino a quel 
momento. 

Ogni volta che sparerete (premen- 
do il tasto FIRE) il computer vi indi- 
cherà dove avete sparato con un pun- 
to lampeggiante; premendo di nuovo 
il fi re potrete proseguire nella pro- 
va. 

Pistola calibro 22 

Con 5 colpi a disposizione dovete 
abbattere una serie di sagome che a- 
vete dinanzi a voi in un tempo limita- 
to; attenti a non sprecare colpi, per- 
chè dopo due sbagli sarete esclusi e la 
vostra prova sarà finita. 

Pistola calibro 38 

Entro un deteminato tempo dovete 
colpire le sagome che appariranno u- 
na per volta in rapida successione. 
Ma il calibro 38 non è poi così facile 
come sembra. Avete solo 6 colpi per 
totalizzare più punti possibile. 

Il controllo dell’arma è molto sensi- 
bile. per cui usate il joystick con 
cautela. 


Videopuzzle 

Un appassionante rompicapo che 
vi farà passare ore al video compro- 
mettendo la vostra salute mentale... 
Una vera manna per gli appassionati 
di puzzle. 

Partito il programma verrà visua- 
lizzata una schermata che potrete os- 
servare solo per pochi secondi. 

Ora il programma vi chiederà il li- 
vello di difficoltà, espresso in due pa- 
ramento. uno per la divisione oriz- 
zontale e uno per quella verticale: 
potrete inserire un valore, indicante 
il numero di pezzi, da 2 a 12 nella di- 
visone orizzontale e da 2 a 20 in quel- 
la verticale. 

Dovrete ricostruire la schermata 
scambiando i vari pezzi: premendo 
Fire su uno di essi e quindi su di un 
altro otterrete lo scambio di posizio- 
ne tra i due. 

Completato il puzzle il programma 
vi indicherà il tempo impiegato e il li- 
vello di difficoltà, in base ai quali cal- 


colerà il punteggio. 

Durante la fase di soluzione del 
puzzle, premendo la barra spaziatri- 
ce, sarà possibile visualizzare per 
qualche secondo la figura origi- 
nale. 

Allenate la vostra mente a ricordare 
i più piccoli particolari del disegno e 
a ricomporlo nel minor tempo pos- 
sibile! 


Kiss Me 

Questa volta avete superato ogni li- 
mite: almeno potevate risparmiare le 
donne sposate! Ora i loro mariti gelo- 
si vi inseguono desiderosi di ven- 
detta. 

Dovete difendervi da loro onde evi- 
tare di finire K.O. a causa di una delle 
loro randellate. 

Superata una nuova fase potrete 
raggiungere finalmente la casa di 
un'altra conquista che vi attende 
trepidante! 

Buon divertimento! 


('osmio Ark 

Siete ora al comando di un'arca 
spaziale c dovete superare le barriere 
di asteroidi che si frappongono tra 
voi e il pianeta sul quale sono prigio- 
nieri i vostri uomini. 

Una volta entrati in orbita e sgan- 
ciato il modulo di atterraggio dovete 
superare le stazioni di difesa del pia- 
neta e raccogliere i vostri compagni 
che vivono prigionieri sul pianeta. 

Attenti, la superficie del pianeta è 
pericolosa, dovrete quindi prendere 
gli amici senza toccare il suolo. 

Il gioco è controllato dal joystick in 
porta due. 


Speedway 

Una entusiasmante corsa che vi ve- 
drà protagonisti alla guida della vo- 
stra moto. 

Dopo aver scelto il livello iniziale 
di difficoltà e il numero di giri della 
pista potrete sfidare gli avversari su 
una piccola pista circolare le cui cur- 
ve devono essere affrontate in conti- 


nue sbandate per arrivare al traguar- 
do nel minor tempo possibile. 

11 joystick in porta 2 controlla la po- 
sizione della moto. 


Autorun maker 

Come tutte le cassette di Software 
Club, anche questa è corredata di u- 
na fantastica utility: Autorun maker. 

Una volta caricato in memoria, il 
programa può essere attivato con 
'SYS 52480'. 

Da questo momento in poi avrete a 
disposizione, oltre agli usuali co- 
mandi Commodore, un'istruzione 
nuova e potente: 

S "nomeprogramma" 

Questa istruzione permette di pro- 
teggere i vostri programmi salvando 
su nastro (c non su disco) il program- 
ma BASIC residente in memoria in 
modo che. all'atto del caricamento, 
questo parta automaticamente e non 
sia più possibile apportarvi alcuna 
modifica. 

Oltre a questa protezione c'è da sot- 
tolineare che il programma così sal- 
vato non può essere interrotto nep- 
pure con RUN/STOP + RESTORE. 

La nuova procedura di salvataggio 
struttura il programma di partenza 
in due lìlcs complementari inscindi- 
bili uno dall'altro: tale caratteristica 
assicura la protezione. 

La procedura corretta per l'utilizzo 
di questo programma è la seguente: 

1- caricare c attivare il programma 
Autorun maker. (SYS 52480) 

2- caricare in memoria il programma 
Basic che si intende proteggere. 

3- digitare il nuovo comando 

S’NOMEFILE'' 

A questo punto la procedura è ter- 
minata. il programma salvato con 
Autorun maker andrà automatica- 
mente in esecuzione senza possibili- 
tà di essere fermato. 


COMMODORE C16/Plus4 
Batbusters 

Questo bellissimo gioco pcrClòco- 
stituirà un entusiasmante diverti- 
mento per svariate ore. 
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RECENSIONI 


GRAPHIC 

EXPANDER 




Aggiunge al tuo Commodore 
128 ben 14 comandi Basic e- 
spressamente dedicati alla ge- 
stione della grafica su schermo a 
80 colonne (640x200 punti). 

E’ possibile ottenere il software 
in questione (solo su dischetto) 
compilando il coupon a fondo 
pagina e indirizzandolo a: 

Systems Editoriale 
Viale Famagosta, 75 
20142 Milano 


Modalità di pagamento 

Al coupon va accluso un assegno di Lire 27.000 (compren- 
sivo delle spese di spedizione) intestato alla Systems 
Editoriale. 


Vi prego di inviarmi il dischetto Graphic Expander 128. 

Nome 

Cognome 

Indirizzo 

Cap Città 


Accludo assegno di Lire 27.000 (comprensive di spese di 
spedizione). 


Firma 


11 gioco consiste neU'abbattere tutti 
i pipistrelli che incontrerete durante 
il vostro viaggio facendo attenzione a 
non urtare tutti gli ostacoli in cui 
vi imbatterete. 

Con i tasti che verranno visualizza- 
ti sullo schermo potrete muovervi su 
e giù , oppure accelerare o sparare. 

Ma fate attenzione! 


Rescue 

Ecco un altro videogame ispirato 
ad un gioco da bar. 

Vi trovate a bordo di un elicottero e 
la missione è salvare i soldati prigio- 
nieri in una zona nemica. Dovete at- 
terrare c caricarli a bordo, evitando 
di entrare in collisione con le posta- 
zioni avversarie c di farvi abbattere 
dai missili che vi vengono lanciati. 

Il gioco viene controllato dalla 
tastiera. 

Turbo Tape 

Finalmente anche per voi, utenti 
CI 6, è arrivato il programma che ri- 
durrà notevolmente le interminabili 
attese davanti al vostro registratore. 

COMMODORE VIC 20 

Batbusters 

Vedi istruzioni C/16. 


Chinagame 

Ora anche sul Vie 20 avete a dispo- 
sizione un rompicapo che speriamo 
vi intratterrà per svariate ore. 

Il gioco altro non è che la trasposio- 
nc su computer dell’antico gioco del- 
la dama cinese. 

Attivato il programma vi si presen- 
terà una scacchiera esagonale con un 
certo numero di pedine ed un buco al 
centro. 

Lo scopo del gioco consiste nel 
mangiare tutte le pedine (come nella 
dama) e di lasciarne esclusivamente 
una al centro. 

Per muovervi lungo la scacchiera 
dovrete usare i tasti di cursore, quindi 
per selezionare le pedine e la relativa 
posizione di arrivo utilizzate la barra 
spaziatrice. 
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Finalmente, viste le numerose richieste, d’ora in poi ogni pubblicazione Software Club su cassetta sarà 
disponibile anche su dischetto da richiedersi, per corrispondenza, presso la redazione. 

Sono disponibili i seguenti titoli: 

Software Club #11 (C/64-128, C/16, Plus/4 e Vie 20) 

Software Club #12 ( C/64-128 . C/16. Plus/4 e Vie 20) 

Software Club #13 (C/64-128. C/16, Plus/4 e Vie 20) 

Software Club #14 (C/64-128. C/16. Plus/4 e Vie 20) 

I Gialli Commodore (C/64- 128) 

Charlie Deus (C/64- 128) 

La voce III (C/64- 128) 

Il prezzo, per ognuna delle suddette pubblicazioni è di L. 12.000 piò L. 3.000 per spese di spedizione. 

Le richieste vanno indirizzate a: 

Systems Editoriale 
Viale Famagosta, 75 
20142 MILANO 
Tel. 02/8467348 

Il pagamento può essere effettuato tramite assegno bancario o versamento sul c/c N. 37952207 
Non è possibile inviare materiale in contrassegno nè contro invio di vaglia telegrafico. 

Per ogni ordine, anche se per più dischetti, le spese rimangono fissate in L. 3.000 


Sempre un passo avanti. 
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QUALSIASI COMPUTER 

Voltiamo pagina 


Un discorso sullo Stack Pointer, 
con riferimenti al Basic 


di ( laudici Baiocchi 



Computer Commodore la “pagina I" (locazioni di alle locazioni 57 e 58. Anche l'articolo “Un'occhiata all'e- 
memoria numerate da 256 a 511) è. tra l'altro, sede dello secutore ed una all editore". CCC N.35 sarà utile per otte- 
“staek'Mn questo articolo vedremo alcuni dei comandi per nere maggiori informazioni sulle locazioni 61. 62. 122 e 
i quali lo stack svolge un ruolo determinante. Qua e là af- 123. 

fioreranno inevitabilmente riferimenti ad importanti loca- Chi non ha la fortuna (!)di possedere i due fascicoli citati 
/ioni in pagina 0; il lettore che voglia seguire in tutti i detta- può. comunque, seguire egualmente questo articolo: sarà 
gli quanto detto in questo articolo può rileggere gli articoli sufficiente decidere di “studiarlo" e non semplicemente 
“Due memorie molto strane". CCC N.29 per i riferimenti di “leggerlo". 
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La Grande Libreria Systems 



Autori Vari 


Autori Vari 


Autori Vari 


64 Programmi par 
Commodore 64 

Giochi, grafica, gestione delle 
stringhe, musica, numeri, gestio- 
nali, 

Lire 4.800 


Strategie vincenti per 
Commodore 64 

strategie per tutti i classici dei 
videogioco pe» giocarli, vincerli o 
programmarli 


I miei amici CI 6 6 Piu*4 


62 Programmi per il Vie 20. C 1 6 

e Plus « 


Un manuale pratico per pad 
neggiare il basic di questi co 
poter. 


Giochi, grafica e routin 
parare a programmare 


Roberto Didoni, Guido Grassi 

Utilities e giochi didattici 

Raccolta di programmi pratici per 
tutti l Commodore e lo Spec- 
trum. 


Roberto Didom. Guido Grassi 


Giovanni Meiima 


Paolo Gogiio 


Tutti I segreti dello Spectrum 


Impara giocando il batic 
dello Spectrum 

Esercizi pratici per entrare nel 
vo delia programmazione. 


4 passi nella Rom. come usare le 
più importanti routine del siste- 
ma operativo 


Teoria e listali per Vie 20. C16 
C64 C128 e Spectrum Sinclair 


AL>A 


Clizìo Merli 

uPaacal per Commodore 64/ 
128 


Umberto Coiapicchionl e Luca 
Galuzzi 


Autori Vari 


ADA 

Il linguaggio passepartout dei 
computer degli anni '80. 

Lire 5.000 


Il linguaggio PASCAL 

Un manuale tascabile per lo slu 
dio e la programmazione. 

Lire 5.000 


Tutti i segreti delle memorie di 
massa del Commodore 64 

Lire 7.000 


Un manuale completo per il prò 
gramma compilatore 

Lire 7.000 


SI, voglio arricchire la mia biblioteca con i seguenti volumi al prezzo di copertina + lire 3.000 per spese di spedizione 


□ 84 Programmi per Commodore 64 

□ Strategie vincenti 
per i tuoi videogame* 

□ 62 Programmi per Vie 20 
C16 e PIU877 

Nome ... 
via. 


••••••••« 


•••••••••••••••* 


0 AP •••••••••••••••••••••••••«•■•■ 


□ Utilities e giochi didattici 

□ Tutti i segreti dello Spectrum 

□ Simulazioni e test per la didattica 

□ Imparare giocando il basic 
dello Spectrum 


N.ro. 


□ I miei amici CI 6 e Plus4 

□ Pascal per Commodore 128 

□ Dal registrattore al drive del C64 

□ ADA 

□ Il linguaggio Pascal 




»••••••• 


••••••••••••••••••••a 


telefono 


•••••••••••a 


... Città 


•••••••••••••••••••••••••••••••••••••••■••••a 


Su tale importo mi praticherete lo sconto Oel 1 0% in quanto abbonato a □ Commodore Computer Club □ Personal Computer 
[JCom puter □ VR Videoregistrare. Pertanto vi invio la somma soltanto di lire 


Valore dell’ordine lire 


Ritagliare e spedire in busta chiusa regolarmente affrancata a Systems Editoriale - V ie Famagosta. 75 - 20142 Milano 
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Un ripasso sui cicli 

Una buona conoscenza di come il proprio computer ge- 
stisce i cicli FOR...NEXT è parte essenziale del bagaglio 
tecnico di ogni buon programmatore: eppure i manuali so- 
no spesso troppo stringati su tale punto; ad esempio si tro- 
va chiaramente detto che un programma (concettualmen- 
te assurdo) del tipo: 

FOR X 
FOK V 
NEXT X: 

NF.XT V 

non può funzionare; ma non è spiegato come fa il compu- 
ter ad accorgersi dell'errore. La cosa è in realtà banale, pur 
di essere a conoscenza della: 

REGOLA I. 

Un comando NEXT chiude automaticamente tutti i cicli 
eventualmente aperti dopo il corrispondente FOR. 

Incontreremo via via in questo articolo altre informazio- 
ni analoghe. 

Per controllare la vostra conoscenza sui cicli potete pro- 
vare a svolgere i seguenti problemi: 

(a) scrivere un pezzo di programma che realizzi un ciclo 
infinito senza fare uso di DO ...LOOP, se il vostro BASIC 
ne è provvisto. 

(b) scrivere un pezzo di programma che simuli un: 
DO... LOOP (UNTI L condizione/; ovviamente, anche qui. 
senza usare i comandi DO. LOOP. UNTIL. 

(c) scrivere un programma che scriva tutti i terni del gioco 
del lotto (una volta sola; cioè, se ha già scritto ad esempio 
1.2.3 non deve poi scrivere 2.1.3. 

(d) “parametrizzare" il programma precedente: il pro- 
gramma chiede un numero K tra 2 e 5; poi se K 2 scrive 
tutti gli ambi, se K = 3 tutti i terni, se K = 4 tutte le quaterne, 
se K=5 tutte le cinquine e questo è un po' più diffìcile 
dei precedenti! 

Tutti i problemi proposti hanno varie soluzioni. In parti- 
colare ovunque si potrebbero evitare i cicli e risolvere il 
problema infarcendo il programma stesso di IF...THEN. 

Tuttavia questo tipo di soluzioni è in generale poco effi- 
ciente e, se possibile, da evitare. 

Ad esempio una “buona" soluzione al problema (a) è 
la seguente: 

100 FOR X« 1 TO 9F.9 
• •• 

200 NF.XT X 

Se tra la riga 100 e la 200 non si sono inserite modifiche al 
valore di X (o dei GOTO che facciano saltare la linea 200) 
si è ottenuto un ciclo veramente infinito: quando infatti il 
valore di X arriva a circa 8.7E9 i successivi NEXT non ne 
modificano più il valore a causa di arrotondamenti e ap- 
prossimazioni, ed il valore 9E9 non verrà mai raggiunto (c- 
laborare per credere). 

Se al programma precedente si aggiunge una linea del 
tipo: 


199 IF (condizione) LHEN X=I0F.9 

si è risolto anche il problema (b). Ai più curiosi segnalo 
che il problema (a) poteva anche essere risolto sostituendo 
la linea 100 con la seguente: 

100 FOR X= 1 TO 2STEP0 

Tuttavia questa variante si presta male ad una eventuale 
successiva compilazione: certi compilatori rifiutano, o 
compilano male, lo step()(compilarc per credere), e rischia 
di dare risultati strani su computer non Commodore, che 
gestiscono in maniera diversa lo stepO. Per quanto riguar- 
da il problema (b) la 199 potrebbe essere sostituita da: 

199 IF (condizione THF.N FOR X= I TO I 

in effetti, benché i manuali non si dilunghino sull'argo- 
mento. si ha: 

REGOLA 2. 

Riaprendo un ciclo già aperto si ottiene automaticamente 
anche la chiusura del ciclo precedente: questa regola ha 
un'importante eccezione che vedremo tra poco. 

Il problema (c) non dovrebbe aver fatto troppe vittime 
dal momento che l'unica difficoltà è la ricerca ilei buoni e- 
slremi per i cicli. Una "buona" soluzione potrebbe 
essere: 

10 FOR Xl= I TO KX 
20 FOR X2=XI + I TO H9 
30 FOR X3=X2+ I I O 90 
40 PRINI XI.X2.X3 
50 NF.XT X3.X2.XI 

o anche: 

50 NEXT:NFXT:NEXT 

che c più veloce, anche se meno chiaro. 

Per il problema (d) la via più ovvia è quella di scrivere 
quattro programmi distinti che realizzino rispettivamente 
la stampa degli ambi, dei temi, delle quaterne e delle cin- 
quine. premettendo al tutto un comodo: 

ON K-l GOTO... 

Un'altra via consiste nel modificare il programma relati- 
vo ai terni scrivendo cinque FOR e cinque NEXT, insieme 
ad un buon numero di IFche. in funzione del valore di K. 
facciano eseguire solo i cicli voluti, e printare solo i 
numeri corrispondenti. 

Se avete scelto una di queste due vie significa che o siete 
vittime della incalzante propaganda a favore di linguaggi 
più strutturati del BASIC, oppure non conoscete l'eccezio- 
ne alla regola 2 cui si è accennato poco fa: date un'occhiata 
al riquadro 1 e vi convincerete che il problema ammetteva 
soluzione banale, pur di sfruttare bene la (sia pur scarsa) 
ncorsività permessa dall'interprete Basic. La spiegazione è 
semplice se si studia la regola n.3 


74 - Commodore Computer Club 



OLTRE IL BASIC 


100 REM TUTTE LE COflBINAZIONI D 
EL GIOCO DEL LOTTO 
110 N~90 : INPUT K:H-1: GOSUB 200: 

END 
120 : 

200 IF H> K THEN FOR Y-l TO K:PR 
INTXCY); : NEXT : PRINT : RETURN 
210 FOR X"X(H-1 ) + l TO N-K+H 
220 XCH)=X:H-H+1 :GOSUB 200:H-H- 
1:X-XCH): NEXT: RETURN 

Ecco un esempio ili come si possano similare le possibi- 
lità ricorsive del BASIC: il programma chiede un numero 
K ira 2 e 5. ed a seconda del valore di K visualizza tulli i 
possibili ambi (K 2) ovvero lenii (k 3). quaterne <k=4) 

0 cinquine (k 5) nel gioco del Lotto. 

Naturalmente, volendo limitarsi a verificare il corretto 

funzionamento del programma, è bene diminuire di molto 
il valore di N in linea 100. altrimenti l'elaborazione per va- 
lori di k superiori a 2 richiede tempi lunghissimi! 

Cambiando il valore ili N in linea 100 si può adattare il 
programma per farne .ni esempio il nucleo centrale di un 
programma che giochi a MASTERMIND.con un numero 
di "buchi" (dato da k) che non è fissato a priori: la linea 

1 IO si semplifica notevolmente se si vogliono ammettere le 
ripetizioni di colori, e si complica un po' in caso 
contrario. 

Su ( 7 1 2X un programma di questo tipo gira fino a k = 22. 
mentre su Vie- 20 e C/64 il programma va "OUT OF ML- 
M< >R\ giti per k 6. tuttavia la versione compilata (con 
Al ISTRO-SPEED)di questo tipo di progr; mimi gira fino a 
k^ 10. Il compilatore, probabilmente, non memorizza in 
slack il numero della linea che chiama la subroutine. ri- 
sparmiando così due byte per ogni chiamata. 


REGOLA 3. 

Un ciclo FOR aperto in una subroutine chiude eventuali 
cicli con lo stesso nome già aperti nella stessa subroutine; 
ma non tocca i cicli in sospeso del programma principale 
nò quelli aperti in subroutine "più esterne**. 

Ricordiamo infine un'ultima regola: 

REGOLA 4. 

Il comando RETURN chiude automaticamente TUTTI i 
cicli aperti nel corso della subroutine corrispondente! 


Cenni sulla struttura UFO 

I ra gli strumenti concettualmente più importanti che o- 
gni computer deve gestire, figura lo STACk (in italiano: 
C ATASTA), cioè una struttura L.I.F.O.: Last In First Out. 
ovverosia il primo ad uscire è quello che era arrivato 
per ultimo. 

Nello svolgimento dei suoi compiti l'interprete ha spesso 
bisogno di un "quaderno di brutta", in cui annotare c me- 
morizzare informazioni che saranno utilizzate in seguito. 


Una tipica situazione in cui si presenta questa necessità e 
la valutazione di un'espressione. Ad esempio per eseguire: 

PRIVI 2+3*4-5 

il computer dovrà limitarsi a memorizzare i dati incon- 
trati lino a che non arriva al segno meno (-). Se. dopo il 4. 
fosse scritto il simbolo di elevazione a potenza, non si po- 
trebbe ancora operare... 

Arrivato al segno meno, può finalmente calcolare qual- 
cosa: gli ULTIMI dati memorizzati (il numero 3. la molti- 
plicazione ed il numero 4) possono essere sostituiti con il 
valore 12. risultalo dell'operazione parzialmente eseguita: 
poi si riprende il lavoro. 

Da questa sommaria descrizione dovrebbe essere chiaro 
il perchè della struttura I ITO: di volta in volta si deve lavo- 
rare con gli ultimi dati memorizzati! 

Fisicamente lo stack dei computer Commodore, almeno 
nei "vecchi" modelli (Vic-20 e C/64) è realizzato "in pagina 
I ’*: alcune delle memorie da 256 a 5 1 1 vengono appunto u- 
tilizzatc per memorizzare le informazioni in sospeso: la 
prima informazione è scritta (pokata) in locazioni alte, le 
successive in celle di indirizzo via via più basso (tipica- 
mente: si parte dalla cella 504, poi si lavora sulla 503. poi 
sulla 502 e cosi via). 

1 no dei registri interni del microprocessore (detto usual- 
mente registro S) punta" costantemente alla cella "in cima 
allo stack *. Quando si scrive qualcosa. *‘S" viene decre- 
mcntato. menta* quando si legge qualcosa "S" viene incre- 
mentato. in modo da puntare sempre alla prima informa- 
zione da elaborare, che è appunto l’ultima di quelle im- 
messe e non ancora utilizzate. 

Si faccia attenzione al fatto che lo slack è "a lesta in giù": 
come si è già detto l'operazione di scrittura abbassa il valo- 
re di Se quella ili lettura lo innalza. Si osservi anche che, al 
contrario di quanto faremmo sul "quaderno di brutta", le 
informazioni utilizzate non vengono cancellate: il solo fat- 
to che il registro S punti più in alto è sufficiente a non te- 
nerne più conto. 


I comandi GOSUB e RETliRN 

I ra le strutture per le quali uno stack si rivela indispensa- 
bile ce quella di subroutine. Quando l'interprete incontra 
il comando GOSUB vengono sviluppate nell’ordine le se- 
guenti fasi (si veda la figura I): 

( I ) si guarda se nello stack c'è posto sufficiente per le ope- 
razioni che seguiranno; in caso contrario viene emesso un 
messaggio ("OUT OF MEMORY ERROR") che forse può 
essere causa di confusione: non è finita la zona di memo- 
ria riservata al programma ed alle variabili, ma quella de- 
dicata allo stack! 

(2) viene ricopiato nello stack il valore contenuto nella cel- 
la 123. poi quello contenuto nella cella 122 (gestite automa- 
ticamente dalfinterprete): si tratta di parte alta e parte bas- 
sa del punto in cui si sta lavorando al momento del "rico- 
noscimento** del GOSUB (cioè la cella successiv a a quella 
che contiene GOSUB); 
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(3) viene immesso nello stack il contenuto della cella 58. 
poi quello della cella s 7 (cioè parie alta e bassa del numero 
di linea in elabora/ione): 

(4) viene immesso nello stack il numero 141. loken del co- 
niando GOSUB; 

(5) si chiama la subroutine che gestisce il comando (>()* 

I O: essa provvede a leggere il numero che segue il <ìO- 
SUB, a cercare l'indirizzo della linea in questione e ad im- 
mettere tale indirizzo nelle celle 122 e 123 che vengono ge- 
stite poi dal l 'interprete; 

((>) si salta alla routine dell’esecutore, che provveder;! a ri- 
prendere l’esecuzione dall'indirizzo costruito nella fase 
(5). 

Il lettore attento, se non è esperto ili LM (Linguaggio 
Macchina), dovrebbe a questo punto protestare: in fase (5) 
si è parlato di subroutine. :ed in effetti anche il LM possie- 
de una struttura analoga a quella del (JOSUB- RETURN 
del BASIC: come mnemonico pertali comandi sono usati i 
termini JSR e RTS. Torneremo più oltre su tale punto, per 
ora limitiamoci a tenere presente che anche la routine del- 
l'esecutore. chiamala in fase (6). fa uso dello stack. deposi- 
tandovi due numeri; si veda ancora la figura I. 
Inversamente, quando si incontra il comando RETURN: 

( I ) si controlla che. tolti due numeri dallo stack. in cima al- 
lo stack si trovi il valore 141. sennò si emette il messaggio 
’ RLTURN WITHOUT GOSUB”: ma c'è un’eccezione 
che vedremo tra poco. 

(2) si prelevano i 2 valori successivi dallo stack. immetten- 
doli rispettivamente nelle memorie 57 e 58; 

(3) i due valori ancora successivi vengono ricopiati nelle 
memorie 122 e 123; 

(4) ora. ridando la mano all'esecutore, questi lavorerebbe a 
partire dalla cella successiva a quella che conteneva il GO- 
SUB. provocando errore .; perciò, invece di passare diret- 
tamente la mano all’esecutore, si salta alla routine del DA- 
TA: tale routine provvede ad incrementare il puntatore 1 22 
e 123 fintantoché non incontra un 58 (token dei due punti) 
oppure uno 0 (token di fine linea). Ora l'esecuzione può ri- 
prendere senza problemi. 

A questo punto il lettore non dovrebbe avere difficoltà a 
capire perchè frasi del tipo: 

GOSUB 100 F. AL RITORNO NON DARMI UN SYNTAX 
ERROR 

vengono elaborate senza errori: cosi come dovrebbe ren- 
dersi facilmente conto del perchè, nella memorizzazione 
degli indirizzi di ritorno dalle subroutine, la struttura LI- 
FO sia indispensabile per una corretta gestione di pro- 
grammi del tipo: 

I (K) GOSUB ZOO 

no ... 


199 END 
ZOtl 

ZIO GOSUR300 
ZZO ... 

290 RETI RN 

300 ... 

• 

400 RETI RN 

Si tratta di "nesled suhroutine" se non si usasse una 
struttura LIL( > per gli indirizzi di ritorno, la linea 400 rin- 
vierebbe l'esecuzione alla riga 1 10 anziché alla 220! 

Naturalmente ogni chiamata di subroutine "gonfia" lo 
stack. inserendo in esso nuove informazioni. Questo è il 
motivo per cui il programma: 

10 N*N+ LPRINT N;:GOSUBI0 

si ferma ben presto col messaggio "OHI OF ME- 
MORY": sul l M e sul Vie- 20 si arriva a scrivere il valore 
24. nel riquadro 2 sono fornite altre informazioni relative 
alla “capienza massima". 

100 PR JNT”FARE RUN 200, RUN 300 
E RUN 400” 

110 PRINT”SUI NU0UI MODELLI FAR 
E ANCHE RUN 500 E RUN 600”: 
END 

199 : 

200 N*N+ 1 : PR I NTN ; : GOSUB 200 

210 REM UIC/20 E C/64 REGGONO F 
INO A N-24 

220 REM C/16 E PLUS/4 FINO A N- 
40 

230 REM C/ 120 FINO A N-67.P0I D 
A* "FORMULA T00 C0MPLEX” AN 
ZI CHE ' ”0UT 0F MEMORY” 

299 : 

300 N-N+1:F0R X=1 T0 2:PRINTN;: 
GOSUB 300 

310 REM UIC/20 E C/64 REGGONO F 
INO A N-7 

320 REM C/16 E PLUS/4 FINO A N- 
0 

330 REM C/120 FINO A N-22 

399 : 

400 F0R X0-1 T0 2 : F0R Xl-1 T0 2 
: F0R X2-1 T0 2:F0R X3*l T0 
2 

410 FOR X4-1 T0 2:F0R X5-1 T0 2 
: F0R X6-1 T0 2 : FOR X7=l T0 
2 

420 FOR X0-1 T0 2: FOR X9-1 T0 E 
: REM UIC/20, C/64, C/16 E P 
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LUS/4 REGGONO FINO QUI 
430 FOR XA-1 TO 2: RE fi E QU I UAN 
NO OUT 

440 FOR XB-1 TO 2: FOR XC- 1 TO 2 
:FOR XDrl TO 2 : FOR XE-1 TO 
2 

450 FOR XF-1 TO 2: FOR XG-1 TO 2 
: FOR XH-1 TO 2:F0R XI-1 TO 
2 

4G0 FOR XJ-1 TO 2: FOR XK-l TO 2 
:FOR XL-1 TO 2: FOR XH-1 TO 
2 

470 FOR XN-1 TO 2: FOR XO-1 TO 2 
: FOR XP-1 TO 2: FOR XQ-1 TO 
2 

400 FOR XR-1 TO 2 : REM IL C120 R 
EGGE FINO QUI 

490 FOR XS-1 TO 2: REM E QUI UA 
OUT ANCHE LUI 

499 : 

500 DO: N-N+l : PRINTN ; : FOR X-l TO 

2 : GOSUB 500 

510 REM C/16 E PLUS/4 REGGONO F 
INO A N-7 

520 REM IL C/120 REGGE FINO A N 
-19 

599 : 

600 DO: N-N+l : PRINTN; : GOTO 600 

610 REM C/16 E PLUS/4 REGGONO F 
INO A N-39 

620 REM IL C/120 REGGE FINO A N 
-102 

Oltre a subroutine c cicli FOR NI XT. lo stack dei nuovi 
modelli Commodore deve gestire anche i cicli DO-UX)P; 
probabilmente per tale motivo per lo stack non si usa più 
la sola pagina I: sul C/I2X si usano anche le pagine X c 9. 
mentre su C/16 e PLUS/4 parte di pagina 6 e parte di pagi- 
na 7. In particolare il livello di nidificazione ottenibile per 
FOR e CìOSUB è più elevato. Il listato indica alcuni test si- 
gnificativi in proposito, tornendo nelle RFM i valori in 
corrispondenza ai quali si verifica un OUT OF ME- 
MORY". 


Una precisazione importante va l'atta a proposito della 
fase ( 1 ) della gestione del RFTURN: se da quando è stata 
chiamata la subroutine a quando si incontra il RETURN 
si fosse immesso qualche altra cosa nello stack. come si fa 
a “risalire” alla giusta posizione in cui dovrebbe trovarsi il 
token 141? 

La risposta è semplice: nello stack possono essere state 
inserite molte case (ad esempio risultati di conti intermedi 
per valutare un'espressione), ma al momento di eseguire il 
RETURN tutte queste informazioni sono state rilette. 


quindi il registro S "deve” puntare al 141... con un'unica ec- 
cezione: il caso in cui. durante l'esecuzione della subrouti- 
ne. siano stati aperti, e non ancora chiusi, dei cicli. 

Come si vedrà tra poco, ogni ciclo FOR occupa IX posti 
nello stack Se un ciclo non è stato chiuso, l'ultimo dei dati 
immessi in stack è il numero 129 (codice del FOR. cosi co- 
me il 141 codifica il COSI JB). Nella fase ( 1 ) del RI I I RN 
basta perciò cercare il 141 incinta allo stack; oppure IX po- 
sti più in alto pur di aver incontralo un I 29. o ancora I X po- 
sti piu in alto se si è incontrato un altro I»; e cosi via. 

In particolare, se l'operazione va in porto, è chiaro che 
tutti i cicli aperti nella subroutine ed ancora in sospeso 
vengono automaticamente soppressi dal RI FURN (si ri- 
veda a tal proposito la regola N.4) 

ìjm gestione dei cicli 

Anche i cicli F( )R...NEXT sono gestiti tramite stack. ogni 
ciclo necessita anzi di maggiore spazio che non una su- 
brouiine. essendo necessario memorizzare, oltre all indi- 
rizzo di inizio del ciclo ed al numero di linea relativo, an- 
che la variabile di ciclo, il valore dello step. ed il valore fi- 
nale del ciclo. 

Il tutu» è condensalo in 17 celle, seguite poi da una IX- 
esima in cui viene inserito il numero 129. token di FOR. 
che serve a segnalare l'esistenza di un ciclo; si dia un oc- 
chiata alla figura 2. Naturalmente con blocchi da IX celle 
ciascuno si fa presto ad esaurire la poca memoria riservata 
allo stack; si veda ancora il riquadro 2. 

Per quanto riguarda l'esecuzione di un'istruzione FOR 
le fasi sono ormai semplici da descrivere: 

( I) si legge il nome della variabile e si esegue un I I I per 
attribuirle il valore di inizio ciclo: 

(2) si legge l'elemento in stack puntalo da S; se non è 129 si 
passa alla fase (4) 

(3) si controlla, risalendo ogni volta di IX posizioni, e solo 
se si continua ad incontrare il numero 129. se in stack è già 
presente un ciclo con tale nome; in caso affermativo si 
cambia il valore di S in modo che punti subito al di sopra 
di tale ciclo (annullando in tal modo il ciclo stesso e tutti 
quelli intermedi): in caso contrario si lascia S inalte- 
rato. 

(4) si controlla che in stack ci sia posto sufficiente per un 
altro blocco da IX celle; in caso contrario si emette il mes- 
saggio “OIJT OF MEMORY". 

(5) Salvo le ovvie eccezioni (se dopo il valore iniziale per il 
ciclo non si trova un "TO” si emette un SYNTAX FRROR; 
se non appare uno STEP si assume 1 come valore di step e 
cosi via) 18 caselle nello stack vengono riempite come de- 
scritto in figura 2. 

In particolare, da quanto detto nella fase (2), ci si può 
rendere conto di come, durante una subroutine, non si ha 
accesso ai cicli aperti al di fuori della subroutine stessa (re- 
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gola 3); il che rende appunto possibili trucchi ‘ ricorsivi* 
come quello descritto nel programma del riquadro I Ana- 
logamente. da quanto detto nella fase (3). si può controlla- 
re la validità della regola 2. 

Anche la descrizione di quanto avviene quando si esegue 
un NEXT è ormai facile: precisamente: 

( 1 ) si vede se in stack c'è il valore 1 29 ( in caso contrario si e- 
mette il messaggio "NEXT W1THOUT POR' ). 

(2) se il NEXT non è seguito da un nome di variabile, si o- 
pera come descritto nella seguente fase (4) relativamente al 
ciclo in cima allo stack. 

(3) se la variabile che segue il comando NEXT non è quella 
del ciclo in cima allo stack. si risale di 18 posti (annullando 
in particolare il ciclo "saltato *; confronta regola I ) e cosi 
via fino a che si trova il ciclo giusto (e allora si va alla fase 

(4) . col valore di S incrementato) o si trova un valore diver- 
so da 1 29 (e allora si va alla routine di errore col messaggio 
"NEXT WHITHOUT FOR"). 

(4) si incrementa la variabile di ciclo tramite la quantità 
step (letta dallo stack); in funzione del valore estremo del 
ciclo, presente aneli esso in stack. si decide poi se l'esecu- 
zione deve essere trasferita all'inizio del loop, di cui si è 
memorizzato l'indirizzo ed il numero di linea, proprio per 
poter eseguire tale salto; qui il salto si esegue semplicemen- 
te trasferendo l'indirizzo voluto nelle celle 122 c 123. 

(5) se invece il ciclo deve essere chiuso ci si limita a incre- 
mentare di 18 il valore di S. senza modificare l'indirizzo in 
122 e 123; però, prima di passare la mano all'esecutore, si 
controlla se il testo da elaborare continua con una virgola 
(per trattare sintassi «lei tipo NEX i VY). 

Che cos'altro bolle in pentola? 

Naturalmente anche i programmi interni del computer 
fanno un uso intensivo dello stack. Ingenerale perciò nello 
stack si troveranno varie informazioni, da utilizzare nel- 
l'ordine corretto. Esemplifichiamo la cosa al livello JSR- 
RTS che. come si è detto, è l'analogo in LM del GOSUB- 
RETURN. 

Il microprocessore possiede una coppia di registri interni 
cui si dà il nome di PC (Program Counter. cioè contatore 
di programma); essa fornisce, istante per istante, l'indiriz- 
zo della cella da esaminare, svolgendocosì un molo analo- 
go a quello svolto, per l'interpretazione di un programma 
BASIC, dalla coppia di celle 122. 123 (si riveda la fase (2) 
del GOSUB). 

Invertendo i termini del problema, cominciamo a vedere 
cosa accade quando si incontra l'analogo del RETURN 
(indicato col simbolo R rS. e codificato col numero deci- 
male 96. esadecimale 60): quando la cella di memoria pun- 
tata da PC contiene il numero % il microprocessore si li- 
mita a prelevare dallo stack i primi due valori, immetten- 
doli nel registro PC; l'effetto di un RTS è perciò quello di 


spostare l'elaborazione all indiri/zo memorizzato in cima 
allo stack. 

Se si confronta quest’operazione con quella descritta in 
occasione di un RETURN ci si accorge che si tratta dello 
stesso tipo di operazione, con due sole differenze: da un la- 
to il LM non possiede "numeri di linea": e dall'altro è eli- 
minalo o^ini controllo (del tipo: c era un 141 sullo stack?); è 
quindi compito del programmatore far si che. quando ver- 
rà incontrato un RTS. in cima allo stack si trovi effettiva- 
mente l'indirizzo cui si vuole saltare... 

Questa assenza di controlli costituisce d'altronde croce e 
delizia del LM: croce perchè obbliga il programmatore ad 
un'estrema attenzione; delizia perchè, eliminando ogni 
controllo, l’esecuzione procede a velocità notevolmente 
maggiore! 

In maniera analoga, quando la cella in esecuzione con- 
tiene il numero decimale 32 (codice dell'Istruzione JSR. e- 
sadecimale 20) il lavoro svolto consiste nello scrivere sullo 
stack i valori di PC (è l'indirizzo cui si dovrà tornare!); e 
nelfimmcttcrc in PC l'indirizzo che si trova dopo il JSR 
(naturalmente il JSR e seguito da un indirizzo. c non da un 
numero di linea); confrontando con quello clic si è costret- 
ti a fare in occasione di un GOSUB ci si rende conto che. 
ancora una volta, l'idea base è la stessa, ma la realizzazio- 
ne è sfrondata di tante "pani accessorie" che. sia pur utili 
in BASIC per un'efficiente diagnostica, non hanno motivo 
di esistere al livello del LM 

In realtà niente obbliga ad usare un RTS solo in coppia 
con un precedente JSR: anzi, molto spesso quello che in 
BASIC si scriverebbe: 

GOSUB XXX: GOTO YVY 

viene simulato in I M con la seguente tecnica: si immette 
nello stack l'indirizzo cui si vuole saltare al termine della 
subroutinc; poi si esegue non un JSR. ma semplicemente 
un JMP (equivalente del GOTO) aH’indirizzo della su- 
broutine; l'RTS tinaie della subroutine rinvierà l'esecuzio- 
ne all'indirizzo preparato nello stack... 

Si tratta di un trucco che è usato molto spesso nel BASIC 
Commodore: ad esempio per gestire il comando SYS. un 
altro dei comandi Basic dei quali i manuali dicono vera- 
mente troppo poco. Salvo il caso del ( 7128. dove la gestio- 
ne è un po’ diversa, il comando SYS forza il ( omputer ad 
eseguire le operazioni: 

(i) valutazione dell'espressione che segue il comando SYS 
(die deve essere compresa tra 0 e 65535): la parto intera di 
tale valore viene immessa nelle memorie 20. 21; 

(ii) immissione nello stack di un "indirizzo di ritorno", va- 
riabile a seconda del modello: ad esempio sul C/M l'indi- 
rizzo in questione è SE 146: 

(iii) immissione in quattro registri interni (indicati usual- 
mente con A. X. Y. P) dei valori contenuti rispettivamente 
nelle celle 780. 781. 782. 783 (che chiameremo "registri di 
passaggio dati": su CI6e PLUS/4 i registri di passaggio da- 
ti sono le memorie 1365. 1366. 1367. 1364): 

(iv) esecuzione di un JMP all’indirizzo contenuto nelle 
memorie 20. 21 già viste in (i). 


78 - Commodore Computer Club 




OLTRE IL BASIC 


Naturalmente il programmatore, prima dell'esecuzione 
del comando SYS, deve aver prov veduto a scrivere, a parti- 
re dall’indirizzo della SYS. il suo programma in I M. e. se 
necessario, a preparare i valori che gli servono nei registri 
di passaggio dati. l.a scrittura del programma in LM non 
sarà necessaria se si la una SYS a un indirizzo ROM. ma è 
comunque indispensabile che la routinechiamata tramite 
SYS termini con un RTS. cosicché, quando la routine è ter- 
minata, I R IS possa mettere in azione il procedimento 
preparato nella fase (ii). 

L’esecuzione verrà allora trasferita aU'indiriz/o prepara- 
lo in cima allo stack. che corrisponde alla routine che ge- 
stisce la fase tinaie della SYS: questa esegue le operazioni 
inverse di quelle indicate in (iii). cioè il contenuto ilei regi- 
stri interni A. X. Y. P è “pokato" nei registri di passaggio 
dati (da cui. tramite PEEK, l'utente potrà leggerli). 

Naturalmente, se l'utente non ha bisogno di leggere i va- 
lori finali dei registri interni, può eliminare queste fasi ter- 
minali della SYS semplicemente inserendo nel suo pro- 
gramma in I.M due comandi PLA (codice 104; significa to- 
gliere dallo stack un valore, incrementando automatica- 
mente il registro S); in generale tale operazione è utile per 
non gonfiare inutilmente lo stack: mentre diventa obbliga- 
toria quando si voglia “riorganizzare” lo stack... 

Ad esempio supponiamo di voler eseguire un “C'LEAR 
STACK ".cioè di voler annullare tutti i cicli e le suhroutine 
in sospeso; è una delle (tante) operazioni che esegue il co- 
mando CLR del BASIC, quindi si può sperare di limitarsi 
a fare una SYS in ROM. alla subroutine che appunto ri- 
porta il registro interno S a puntare alla base dello 
stack. 

La subroutine in questione è all'indiri/zo SA67A (deci- 
male 426 IX) sul C/64; a) solito, sul Vic-20.è$2<)00 più avan- 
ti; però, facendo direttamente SYS 4261 X. la presenza in 
stack dell’indirizzo di ritorno della SYS genera un malfun- 
zionamento; occorre scrivere da qualche parte in RAM un 
(mini)programma in LM: 

PLA 

PLA 

JM PS A 67 A 

(ovvero JMPS< 67 A sul VIC) 

e con una SYS a tale programma si ha l'effetto voluto. 

Nel riquadro 3 è risolto (essenzialmente in BASIC) un 
problema più difficile; la subroutine fornita permette di 
costruire il comando POP. eliminando cioè dallo stack il 
blocco relativo all'ultima subroutine aperta. 

C oncludiamo osservando che la struttura della SYS non 
prevede la possibilità di lavorare col registro interno S; 
sebbene la scrittura in tale registro sia un'operazione peri- 
colosa. che rischia di “inchiodare " il computer, la lettura 
del contenuto di S potrebbe essere interessante (il pro- 
gramma del riquadro 3 ne ha già fatto uso). 

Il riquadro 4 fornisce un trucco banale per eseguire 
tale lettura. 

Nel riquadro 5 c fornito un esempio di utilizzo delle in- 
formazioni ora viste relative al comando SYS. con una 
routine che. sfruttando le informazioni contenute nelle 
celle 61. 62. risolve il problema del GOTO CALCOLATO 


in maniera leggermente diversa da quella proposta su 
CCC N.31. rubrica “Nuovo Sistema Ancora sull'uso delle 
locazioni 61. 62 è basata la utility del riquadro 6: un “Dole- 
te da un certo punto in poi”. 

40000 POKE 74,255: SYS 41066; REM 
SU UIC20 FARE SYS 50058 

40010 RS“PEEK(781 ) +264 : IC-PEEKCRS 
-4 )+256*PEEKC RS-33 
40020 F-PEEKCRS3-141: IF F-0 THEN 
RS-RS-7 

40030 FOR IC-IC TO 9E9:IF PEEKC IC 
)<>S8 THEN NEXT 

40040 IOIOl : POKE RS+4 , I C/256 ; PO 
KE RS+3 , IOPEEKC RS+4 ) *256 : R 
ETURN 

A volte può far comodo annullare I ultima subroutinc in 
sospeso (oltre, ovviamente, ai cicli in essa aperti) senza che 
l'elaborazione venga trasferita (come avverrebbe eseguen- 
do un RLTURN) al punto in cui si era fatto il corrispon- 
dente GOSUB 

Stiamo parlando del coniando POP. sfortunatamente 
assente nel BASIC Commodore. I a cosa è delicata, perchè 
si deve in particolare controllare che qualche subroutine 
sia effettivamente stala aperta; e in tal caso, oltre all'ultima 
subroutine aperta, occorre anche chiudere tutti i cicli even- 
tualmente aperti in essa. 

Una routine in LM che esegua tale operazione non è dif- 
ficile. ma si può anche risolvere il problema operando es- 
senzialmente in BASIC', come mostra il segmento di pro- 
gramma acclusoli numeri di linea ed i nomi delle variabili 
possono essere cambiati a piacere). 

Dovunque nel resto del programma eseguendo: 

GOSUB 40000: K ETURN (MA POI TORNA QUI !) 

l'esecuzione sant comunque riportata ai puntini che se- 
guono il RETURN; in più. se prima del GOSUB c era 
qualche subroutinc in sospeso, la variabile E vale -1 e l'ulti- 
ma subroutine viene chiusa (insieme a tutti i cicli in essa a- 
peni ); in caso contrario E vale 0. Volendo eseguire un 
“POP multiplo" basta iterare l'operazione. 

Esercizio per i più distratti controllare che in questo ri- 
quadro è già stato detto più volte che una sintassi del 
tipo: 

FOR X= I TO 5:GOSUB 40000: RETURN: NEX1 
darà risultati imprevedibili! 

Iterando l’operazione fino a che non risulti F-0 si an- 
nullano tutte le subroutine in sospeso, ma non i cicli EOR 
eventualmente aperti nel programma principale; volendo 
annullare anche questi ultimi è più semplice lare uso del 
programma C'LEAR STAC K descritto nell'articolo. 

N.B: Nel listato di questo riquadro, fate attenzione ad in- 
terpretare correttamente eventuali segnalazioni di errore. 
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Come detto nell'anicolo il comando SYS permette di 
passare dei parametri dal BASIC al LM e viceversa; sul 
CVI 28 si tenga presente che i valori da passare possono es- 
sere direttamente “accodati" alla SYS. anziché POK-ati; c 
le PEEK finali possono essere sostituite da un RREG. 

Su C/16, PLUS/4 cC/ 128 c’è anche la possibilità di legge- 
re il valore del registro interno S: dopo una SYS basta leg- 
gere PEEK(9) sul C/I2X e PEEK( 1368) sugli altri. C osa si 
può fare su VIC-20 e C/M per leggere il valore di S? 

Sapendo che il LM possiede un comando che trasferisce 
il contenuto di S nel registro X (codice 185. mnemonico 
ISX) basterà ovviamente scrivere da qualche parte in 
RAM il mini-programma 

ISX 

RTS 

e poi leggere il contenuto ilei registro 781; cioè pokare in 
due locazioni consecutive della RAM i numeri 185. 96 e. 
latta una SYS a tale mini-programma, leggere PI:EK(78l). 

Tuttavia non è necessario scrivere il sia pur breve pro- 
gramma in LM. se lo troviamo già scrìtto da qualche parte 
in ROM; ed in effetti sul C/M basta fare SYS 57409 (gli e- 
sperti di LM provino a disassemblare la zona precedente, 
che è il trattamento di EXP; avranno una sorpresa .) men- 
tre per il VIC/20 la coppia 185. % non si trova; cè tuttavia 
in SFE53. decimale 65107. come parte della routine di ge- 
stione parametri per l'apertura di un file, la routine: 

TSX 

STYSB9 

RTS 

(ed anche qui. disassemblando "bene", si avrà una sorpre- 
sa) che può essere utilizzata da BASIC preparando per il 
registro Y un valore che renda innocuo lo STYSB9; 
basta eseguire: 

POKi: 782, P E E K( 1 85):S YS65 1 07 

seguito poi dalla lettura della locazione 781. 


10000 A-PEEKC 61 )+256*PEEK(6S) : B-P 
EEKC A+l )+B56*PEEK( A+2)-10 : R 

EM •***•***• 

10001 POKE 66 , A/256 : POKE 65.A-B56 
•PEEKC66) 

10002 FOR X-B TQ B+8 : READ C:P0KE 
X , C : NEXT : END 

10003 DATA 104,104,132,21,134,20, 
7B, 163,160 

10004 POKE 702, N/256: POKE 701, N-2 
55*PEEKC 752 ) : SYS5 

Questo segmento può essere inserito ovunque in un pro- 
gramma (i numeri di linea ed i nomi delle variabili posso- 
no essere cambiati a piacere); si esegua RUN 10000. poi si 
cancellino le linee 10001, 10002. 10003; provando a listare 


la linea 16000 si otterrà ora qualcosa di strano, ma non ce 
da preoccuparsi... 

A questo punto, dovunque nel resto del programma, il 
comando "GOTO 10000 equivarrà a "GOTO N mentre 
il comando “GOSUB 10000" equivarrà a "GOSLJB N". 

La linea 10000 fornisce nella variabile B findiri/zo della 
prima cella dopo la REM; la linea 10001 esegue semplice- 
mente un RESTORE 10000, cosi da leggere i dati della li- 
nea I (MMI3. c non qualche altra cosa dal resto del program- 
ma; infine la 10002 sostituisce gli asterischi di linea 10000 
con un breve programma in LM . Una volta svolto il loro 
compito le linee 10001, 10002, 10003 vengono eliminale. 

Quando, nel resto del programma, si esegue un GOTO 
lOOOOo un GOSUB 10000 . la linea 10000 fornisce in B l'in- 
dirizzo per la SYS e la linea 10004 prepara come valori da 
trasmettere ai registri interni X ed Y la parte bassa e parte 
alla del numero N; dopodiché si fa una SYS al Lindi rizzo B 
calcolato in linea 10000 . 

La parte in LM corrisponde a: 

IMA 
PIA 
STXSI4 
STYSI5 
JM PS A 8 A3 

(al solilo, su VIC -20. si aumenterà di $2000 l'indirizzo del 
JMP. tacendo JMPSC 8A3: si tratta cioè di sostituire l'ulti- 
mo dato 168 di linea 10002 con il valore 200) Qui. al con- 
trario di quanto avveniva per il programma ( LEAR 
S IAC K. i due PLA iniziali potrebbero essere eliminati per 
accorciare ancor più la routine. 

Sui nuovi modelli la ricerca della posizione del primo u- 
strcisco(*) è più complicata (le memorie 61, 62 operano in 
minio diverso); su (716 e PLUS/4 si tenga inoltre presente 
del diverso indirizzo dei registri di passaggio, come indica- 
to nell'articolo; il JMP va latto alla locazione $81)50. 

Su (7128. come ricordalo nel RIQUADRO 4. la nuova 
sintassi del comando SYS permette ili "accodare" diretta- 
mente alla SYS i valori da passare: però occorre modifica- 
re il programma in LM nella forma: 

PIA 

PIA 

STXSI6 

SÌYSI7 

JMPS59E2 

(si faccia inoltre attenzione ad usare preliminarmente il 
comando BANK). 

Il sistema usato è di carattere generale: una qualunque 
routine in LM abbastanza corta da entrare in una linea 
BASIC può essere inserita in modo analogo in un pro- 
gramma: naturalmente la routine deve essere rilocabilc 
(aggiunta o soppressione di linee BASIC ne modificheran- 
no la posizione?): si deve però evitare di usare questo siste- 
ma quando i dati del programma in LM contengono degli 
zeri: unoO inserito in una linea BASIC provoca sempre dei 
guai ... 
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0 GOTO 8 : REM PER NON DISTURBA 
RE IL PROGRAMMA PRINCIPALE 

1 PRINT ”DELETE DA NNN IN P 
01”: INPUT ”NNN " 5 A 

e IF ( A< 6 ) OR C A>63999) OR CA 
< I NTC A) ) THEN STOP 

3 PRINTCHRSC 147} : PRINT: PRINT A 

t 

4 PRINT "P-PEEKC61 }+2S6*PEEK( 
62 ) + 3 : P0KE64 , P/256 : P0KE63 , P 

-256-PEEKC64) ” 

5 PRINT A+l “POKEP-1 , 0 : POKEP- 
2,0: P0KE45, PEEKC63} : P0KE46, 
PEEKC64 ) : CLR : END” 


6 PRINT "RUN” A CHRSC 19 ) ; : POK 
E 198,6 

7 FOR X-631 TO 633:P0KE X,13: 

NEXT : POKE X, 147: END 

8 PR I NT M IL DELETE SI LANCIA C 
ON : RUN 1” 

Il BASIC di VIC- 20 c C/M non possiede il comodissimo 
comando DFLETE (per l'climina/ionc di un blocco di li- 
nee di programma). Se ci si accontenta di un "deletc da un 
certo punto in poi" il listalo qui accluso risolve il 
problema. 

Ad esempio le linee qui proposte potrebbero essere inse- 
rite nel programma caricatore del "Nuovo Sistema": vo- 
lendo caricare piu parli, dopo la scrittura dei dati di ogni 
parte ed il relativo RUN basterà cancellare (eseguendo 
RUN I) le linee da l(MK) in poi. senza dover caricare di nuo- 
vo il programma caricatore; naturalmente in questo caso si 
sopprimeranno le linee I e2esi scriverà 1000 al postodi 
A nelle linee 3. 6; e 1001 al posto di A+l in linea 5. 


A tutti i 

Commodore Computer Club 

Molti circoli si sono aperti e molti sono usciti allo "scoperto" dopo il nostro invilo ad aprire un Computer Club, apparvi sul N 21 di C.C.C. 

Allo scopo di rendere un servi/ao migliore ai nostri tenori che intendano contattare uno di questi simpatia circoli culturali, i segretari dei circoli 
stessi sono pregati di compilare il seguente tagliando, o sua fotocopia . c di inviarlo in busta chiusa ( affrancata secondo le vigenti tariffe postali ) a : 

Systems Editoriale 
Servizio Notizie Computer Club 
Viale Famagosta. 75 
Milano 

La completa compilazione dell'intera scheda, è INDISPF.NSABILF. per la pubblicazione gratuita sulla nostra rivista. 


Nome del club. 

C.A.P Città 

Presidente: 

N. di soci finora iscritti: 

Orario di apertura: 

Periferiche disponibili (specificare): .. 

Videogiochi N.: 

N. abbonamenti a n viste italiane: 

(Specificare se annuale, mensile ecc.) . 

Attività previste: 

Eventuali sponsor: 


Sede del club: 

Prov.: 

Segretario: 

Data di fondazione: ... 


Via 

Tel Prefisso: N 

N . soci fondatori : 

Giorni di apertura della sede: 


. Computer* disponibili (specificare): 

Programmi disponibili (N. approssimativo): 

. Professionali N.: Biblioteca tecnica N. volumi: 

N abbonamenti a riviste straniere: Quota di iscrizione L. . 

. Bollettino periodico emesso: Attività già svolte: 

Disponibilità alla sponsorizzazione (sl/no): .. 
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Figura I 

Lo stack del C/64 durante l'esecuzione di una 
subroutine. 

Ogni comando GOSIIB occupa sullo stack 7 byte: uno di 
essi contiene il numero 141. caratteristico del CìOSUB: al- 
tri due forniscono il numero della linea BASIC che conte- 
neva il GOSUB; altri due sono parte bassa e parte alta 
del Pindi rizzo di ritorno " (si tratta della prima cella suc- 
cessiva a quella in cui è tokenizzato il GOSUB). 

I restanti due byte contengono anchessi un indirizzo (in 
ROM) e puntano alla routine NSE (Next Statement Exc- 
cutor); sul VIC20 invece del 167 co un 199. 


F 4 < — cella bll 

F H 

F 4 

F H 

F 4 

F 4 

F 4 

F —4 

I Indirizzo l < — parte alta 

F““ — 4 

I di ritorno I < — parte bassa 

F q 

INumero kbtì) I <-- parte alta 

F-- di 1 

llinea Cb7j I < — parte bassa 

F q 

I 141 I < — loKen di 

y q GUbUtì 

I 1G7 I 

I- — — 4 

I d33 I <-- qui punta li 

F"""--- — — "4 registro b 

y 4 

y 4 

y 4 

y 4 

y 4 < — cella db 6 


4 

I Indirizzo I <— parte alta 

F 4 

I di ritorno I < — parte bassa 

4 

I Numero I < — parte alta 

F — 4 

I di linea I <-- parte bassa 

y 

I I 

F" —4 

I limite I 

F — — 4 

I superiore I < — b bgte 
p— —4 

I del ciclo I 
k~ —4 

I I 

y 4 

I SGN di SILP I 

y 4 

I I 

—4 

» valore I 

F-- —4 

I dello I < — b bgte 

F-- “4 

I step I 

k— —4 

I I 

I- ----4 

I Indirizzo I 

F — 4 

Ivar . del ciclo I 

y 4 

I 129 I <-- qui punta il 

^...«....-.---4 registro 9 

Figura 2 


lx> stack durante l'esecuzione di un FOR. 

Ogni ciclo FOR in sospeso occupa IX byte nello stack; il 
valore 129 è caratteristico del F'OR: il valore dello step e 
quello del limite superiore del ciclo sono memorizzati nel- 
la usuale forma Boati ng point. che richiede appunto 5 
byte; il byte ~SGN di STEP'* vale I se lo stop è positivo: vale 
0 se lo step è nullo: vale 255 se lo step è negativo. 

Per un ciclo del tipo: 

FOR X= A TO B STEP C 

Pindirizzo di ritorno*' punta alla cella contenente i due 
punti che seguono la C: l 'indirizzo variabile del ciclo** 
punta al primo dei 5 byte in cui è memorizzata la 
variabile X. 

Si osservi che. proprio perchè i valori di B e C vengono 
memorizzati nello stack. successive modifiche ai valori di 
tali variabili non avranno influenza sul ciclo. 
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Parlar 

di Sprite 



Infatti se per accendere lo sprite 2 avessimo eseguito 
POKE53269.2 avremmo acceso sicuramente lo sprite 
N.2. ma perso tutti gli altri eventualmente presenti. 

Per quanto riguarda il posizionamento lungo l asse X 
per valori superiori a 255. è bene sottolineare che e ne- 
cessario setta re il hit corrispondente allo sprite nel regi- 
stro 53264 secondo le considerazione già fatte in merito 
all'accensione dello stesso sprite (funzione OH). 

Nell'esempio d'uso si utilizza uno sprite a forma qua- 
drata allocato, per comodità, nel buffer di cassetta (da 
960 in poi.cfr. linea 200). Nulla vieta pero, modificando 
i valori con una procedura Read-Data. di visualizzare 
uno sprite personalizzato dal lettore. 

Per ulteriori chiarimenti sull'argomento, si consiglia 
vivamente la lettura dell'articolo “Tutto sugli sprite* 
(C.C.C. N.35). 


Tre routine (più una) 

per meglio comprendere 
la gestione dei sotto-schermi 
del popolare C/64 


A cura di Alessandro de Simone 


16600 Accensione sprite 

(Commodore 64) 

Questa routine gestisce l'accensione e il posiziona- 
mento di qualsiasi sprite ( numerati da 0 a 7) in un qual- 
siasi punto dello schermo. 

Nell'esempio d’uso vengono richiesti i parametri ne- 
cessari per il corretto funzionamento della routine. che 
sono i seguenti (tra parentesi sono riportati i limiti mi- 
nimo e massimo accettabili): 

NS = numero sprite (0-7) 

CS = colore sprite (0-255) 

PX = posizione X (0-319) 

PY ■ posizione Y (0-255) 

EX = espansione X 
EY = espansione Y 

Per quanto riguarda le ultime due opzioni (EX. EY) 
va detto che si può rispondere con un qualsiasi numero 
(positivo o negativo) in quanto la routine non ne verifi- 
ca il valore, ma solo la "diversità” dal numero zero. Ciò 
giustifica l'apparente incompletezza (IfEYThen) nelle 
linee 16610 c 16612. 

Ne approfittiamo, comunque, per ricordare che con alcuni 
compilatori la sintassi parziale viene accettata, ma anche il 
valore nullo è considerato ‘'esistente” con il risultato che le i- 
struzioni presenti dopo Then vengono sempre eseguite, qua- 
lunque sia il valore della variabile sottoposta alla verifica 

n\ 

Per ciò che riguarda l’accensione si ricorre alla se- 
guente formula: 

POKE 53269.PEEK(53269)OR(2f NS) 
in modo da modificare il valore del registro accensione 
sprite senza spegnere gli altri sprite eventualmente 
accesi. 


100 REM ESEMPIO D’USO 
110 REM PER SETTORE I PARAMETRI 
DI UN QUALSIASI SPRITE 
1E0 REM BY MICHELE MAGGI 
170 : 

E00 FOR 1-960 TO 960+63 : POKE 1, 
E55 : NEXT : PR I NTCHRS (147); 

E05 PRINTCHRSC 19) ; 

510 INPUT "NUMERO SPRITE C0-7)” 
; NS 

Eli IF NS< 0 DR NS> 7 THEN E10 
EE0 INPUT "COLORE SPRITE C0-E55 
} " ; CS 

EE1 IF NS< 0 OR C5> E55 THEN ERO 
E30 INPUT "POSIZIONE X";PX 
E50 INPUT "POSIZIONE Y";PY 
S60 INPUT "ESPANSIONE X” ; EX 
E70 INPUT "ESPANSIONE Y” ; EY 
300 G0SUB 16600: GOTO E05 
9999 END 

16600 IF PX> 3E0 OR PX<0 OR PY<0 0 
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R PY>355 OR NS< 0 OR NS>7 TH 
EN X0$-”ERR M : RETURN 

16E01 POKE 53369, PEEKC53369) OR ( 
3TNS) 

16603 POKE 533B7+NS , CS : REM NS-N.S 
PRUE; CS-COLORE SPRITE 

16603 IF PX>555 THEN P1-PX-555:PX 
-PI: POKE 53564, PEEKC53364) 
OR (3TNS) : GOTO 16605 

16604 POKE 53564 , PEEKC53364) AND 
(PEEK (53364 )-(3?NS) ) 

16605 POKE 5334B-C3»NS),PX:REM PX 
,PY- COORDINATE SPRITE 

1660B POKE 53349+C3*NS) , PY 

16610 IF EY THEN POKE 53371, PEEKC 
53371) OR C 3TNS ) : REN EY, EX- 
ESPANSIONE SPRITE 

16613 IF EX THEN POKE 53377, PEEKC 
53377) OR C3TNS) 

16614 POKE 3040+NS , 15 

16618 RETURN 

16630 : 

16690 REN UARIABILI: NS,CS,PX,PY, 
EX , EY 

16699 REN NONE: GESTIONE SPRITE 


16700 Movimento sprite 
(Commodore 64) 

Questa routine ha lo scopo di visualizzare costante- 
mente le posizioni X e Y di uno sprite controllato tra- 
mite i tasti cursore. 

Anche per questa routine valgono le considerazioni 
fatte in precedenza in merito al registro 53264 (valore 
dell'ascissa maggiore di 255) che deve essere settato se 
lo sprite oltrepassa la posizione N.255. 

Oltre ai valori X e Y viene anche visualizzato il co- 
mando POKE53264.FL dove FL assume valore I oppu- 
re 0 in funzione della posizione dello sprite. 

100 REM ESEMPIO D’USO 
110 REM MOU I MENTO SPRITE 
120 REM CON TASTI CURSORE 
125 : 

130 PX-100: PY-100 
140 FOR 1-0 TO 62: POKE 032+1,25 
5 : NEXT : POKE 2040,13 
145 GET AS 

150 IF A$-”i;D0UJN3” THEN A-l.-GOS 
UB 16700 

151 IF A$- ”C UP3 ” THEN A-2:G0SUB 

16700 


152 

IF 

A$- ”C LEFT3 ” 

THEN A-3 : GOS 


UB 

16700 


153 

IF 

AS- ”C R I GHT3 

” THEN A— 4 : GO 


SUB 16700 


154 

IF 

AS-CHRS ( 13 ) 

THEN FOR 1-1 


TO 10 : PR I NT ”C DQUND ” : NEXT : P 


R I NTPX , PY , ”P0KE 53264, ”FL: E 
ND 

155 PR I NT ”C CLEAR3 ”PX , PY , ”P0KE 5 
3264, ”FL: GOTO 145 

210 : 

5939 END 

16700 U-53248 : POKE U+21 , 1 
16703 IF A< 1 OR A> 5 THEN X0$-”ERR 
RETURN 

16705 ON AGOTO 16710,16720,16730, 
16740 

16710 PY-PY+1 : I F PY>227 THEN PY-2 
27 

16712 POKE U+l , PY : GOTO 16732 
16720 PY-PY- 1 : I F PY<50 THEN PY-50 
16722 POKE U+l , PY : GOTO 16732 

16730 PX-PX- 1 : I F PX<25 AND FL-0 T 
HEN PX-25 

16731 IF FL AND PX-0 THEN FL-0:PX 
-255: POKE U+16,0 

16732 POKE U,PX: RETURN 

16740 PX-PX+ 1 : I F PX>254 THEN FL-1 
: PX-1 

16742 IF FL THEN POKE U+16,1 

16743 IF ( PX>65) AND CFL>0) THEN 
PX-65 : REM RETURN 

16745 POKE U,PX: RETURN 
16740 REM MUOUE SPRITE CON TASTI 
CURSORE 

16749 REM EUI DENZ I ANDONE LA POSIZ 
IONE 

16799 REM ED IL UALORE DEL REGIST 
RO 53264 

16800 Sprile scanner 

(Commodore 64) 

Utilizzando alcuni videogame (naturalmente spro- 
tetti...) ci è capitato di osservare sprite molto belli. Inter- 
rompere un gioco sprotetto non è un problema (tasto di 
reset o altri sistemi): ma come fare per rintracciare gli 
sprite che hanno destato la nostra curiosità? 

Può dunque capitare di voler individuare la posizio- 
ne del blocco relativo agli sprite di vari programmi (sia 
in Basic che L.M.) sia per sapere in che porzione di me- 
moria si allocano, sia per estrarre i 63 dati relativi a cia- 
scuno di essi. 
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La routine proposta si incarica di risolvere il proble- 
ma: sarà però dapprima necessario caricare il gioco 
che contiene gli sprite da esaminare: quindi resettare 
(non spegnere!) il computer per poi caricare e mandare 
in esecuzione il programma qui pubblicato. 

Alla partenza verrà richiesto il numero del bloccoche 
si intende esaminare: successivamente verranno visua- 
lizzati. su due file sovrapposte, tutti gli sprite. quattro in 
hi-res e quattro in multicolor. il cui disegno, ovviamen- 
te. varierà in funzione del valore del puntatore dello 
sprite. 

I comandi possibili sono i seguenti: 

Tasto più ( + ): incrementa il valore del blocco-sprite 
Tasto meno (-): lo decrementa 
Shit! (+-): incrementa il puntatore, ma di 64 unità 
alla volta 

Shift (-): lo decremente di 64 unità alla volta 
Clr/Home: azzera i puntatori e riparte. 

X: espande gli sprite lungo X 
Y: espande lungo Y 

Freccia a sinistra: riporta gli sprite alle dimensioni 
originali. 

II motivo per cui vengono visualizzati gli otto sprite 
(che puntano, però, tutti allo stesso blocco indicato), è 
dovuto al latto che. se ne avessimo utilizzato uno solo, 
questo rischiava di restare invisibile se avesse avuto Io 
stesso colore del fondo; analogamente rischiava di es- 
sere “incomprensibile" se visualizzato in multicolor. 
quando era da visualizzare in modo normale, e 
viceversa. 

Con una routine in Basic, ovviamente, è possibile vi- 
sualizzare i 256 sprite allocabili nel primo banco di me- 
moria (da 0 a 16319): gli sprite che in vari programmi 
molto complessi (come SummcrGames) vengono allo- 
cati sotto il Remai o sotto il Basic non possono essere e- 
saminati se non ricorrendo a notevoli modifiche che e- 
sulano dallo standard dell’Enciclopedia di routine. 

100 REfl ESEMPIO D’USO 
110 REM UISUAL IZZA SPRITE 
120 REM PRESENTI IN MEMORIA 
130 : 

150 INPUT ”CCLEAR 3 PARTENZA” ; A : P 
RINT”PREMI UN TASTO” 

151 GET A$:IF A$-”” THEN 151 
155 IF A< 0 OR A> 255 THEN 150 
280 PR I NT ”C CLEAR 3 BLOCCO ”A ; TABC 

14) ”LQCAZ I0NE”A*64 
250 PR I NT ” C 17 D01UN3X - ESPANSIO 
NE IN X” 

300 PR I NT ”Y - ESPANSIONE IN Y” 
310 PRINT”*- - RITORNO DIMENSION 
I NORMALI” 

320 PR I NT ”CLR - AZZERAMENTO BAN 
CO” 


340 

350 

350 

9999 

16800 


15803 


16B06 


16809 

16810 
16811 
16814 

16B15 

16820 

16825 

16830 

16835 

16840 

16842 

16899 


GOSUB 16800 
GOTO 151 


END 

U-53240: POKE U+28 , 0 : POKE U + 
21 , 255 : POKE 33,0: POKE 650,1 
28: IF A$-CHR$C19) THEN A-0 
POKE U+28 , 240 : POKE U,50:PQK 
E U+l , 70 : POKE U+2 ,110: POKE 
U+3,70 

POKE U+4 , 170 : POKE U+5,70:PO 
KE U+6 , 230 : POKE U+7,70:POKE 
U+B , 50 : POKE U+9, 120 
POKE U+10, 110: POKE U+11,120 
POKE U+12 , 170 : POKE U+13,120 
POKE U+14 , 230 : POKE U+15,120 
IF AS-”+” THEN A-A+1:IF A>2 
55 THEN A-255 

IF AS-”-” THEN A-A-1:IF A< 1 
THEN A-0 

IF AS-”X” THEN POKE U+29,25 
5 

IF A$-”Y” THEN POKE U+23, 


IF A$-”-” THEN POKE U+23,0: 
POKE U+25,0 

IF A$-”4” THEN A-A+0:IF A>2 
55 THEN A-255 

IF A$— ” | ” THEN A-A-0 : I F A< 1 
THEN A-0 

POKE 198 , 0 : FOR 1-2040 TO 
2047: POKE I , A : NEXT : RETURN 
REM NOME: SPRITE SCANNER 


16900 Deck & Doke 

(qualsiasi Commodore) 

Nonostante sia già stata pubblicata una routine simi- 
le nella rubrica Enciclopedia L.M. ne proponiamo una 
in Basic, chiaramente più semplice. 

Si tratta, in realtà, di due routine che. grazie alla bre- 
vità. sono unite in un corpo unico. 

DEEK funge da doppia PEEK e serve per esaminare 
quale sia la locazione indicata da un qualsiasi 
puntatore. 

In input viene richesto il primo puntatore: il valore di 
questo, e di quello che lo segue, viene quindi elaborato 
e visualizzato in output insieme con il valore della loca- 
zione puntata. 

Ad esempio, se consideriamo il puntatore 43 c 44 (ini- 
zio del programma Basic) risponderemo all'input sem- 
plicemente con 43: verrà fornito in output il valore del- 
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F lenco delk routine pubblicate 

(Fra parentesi è riportato il numero sono apparse) 

63923 rem 16500 drum per c/64 (38) 

63924 rem 16400 draw low/res (38) 

63925 rem 16300 print v/cont (38) 

63926 rem 16200 plot low-rcs (37) 

63927 rem 16100 integrali (37) 

63928 rem 16000 equaz. mista (37) 

63929 rem 15900 equa/, terzo gr. (37) 

63930 rem 15800 derivala di funz. (37) 

63931 rem 15700 scritte rotanti (37) 

63932 rem 15600 convcrs. coordin. (36) 

63933 rem 15500 logar. base quals. (36) 

63934 rem 1 5400 conversione basi (36) 

63935 rem 15300 scmplif. frazioni (36) 

63936 rem 15200 divis. con N dccim (36) 

63937 rem 50100 directory (35) 

63938 rem 15100 lampeggio righe (35) 

63939 rem 15000 frammenta schermo (35) 

63940 rem 14900 dcletc window (35) 

63941 rem 14800 cambia stringhe (34) 

63942 rem 14700 slitta stringhe (34) 

63943 rem 14600 ruota stringhe (34) 

63944 rem 10500 input programmai (34) 

63945 rem 14500 scroti solo testo (33) 

63946 rem 14400 iprite multiuso (33) 

63947 rem 14300 zoom csadecimalc (33) 

63948 rem 14200 video orologio (33) 

63949 rem 1 1 100 funzioni inverse (32) 

63950 rem 13200 centra messaggi (32) 

63951 rem 14100 finestre di testo (32) 

63952 rem 14000 gestione nome disk (32) 

63953 rem 13900 load/save pg video (31) 

63954 rem 13800 scritte in ebern (31) 

63955 rem 13700 bit imagc mps/803 (31) 

63956 rem 13600 or esclusivo (31) 

63957 rem 13500 comandi extra prg (31) 

63958 rem 13400 lince low-rcs. (31) 

63959 rem 13300 elabora stringhe (31) 

63960 rem 13200 centratura frase (32) 

63% I rem 13 100 menu con joy (30) 

63%2 rem 13000 menu con cursore (30) 

63%3 rem 12900 frase lampeggiante (29) 

63964 rem 12800 bordo technicolor (29) 

63%5 rem 12700 fili memoria ram (29) 

63966 rem 12600 text copy mps 803 (29) 

63%7 rem 12500 colore pag.tcsto (29| 

63968 rem 12400 print using (31) 

63968 rem 12400 print using (29) 

63969 rem 12300 m c.d E M.C.M. (29) 

63970 rem 50500 visualizza file (28) 

63971 rem 50400 read file relativi (28) 

63972 rem 50300 wrilc file relat (28) 

63973 rem 50200 crea file relativi (28) 

63974 rem 50000 legge blocks frcc (28) 

63975 rem 12200 numeri congrui (28) 

63976 rem 12100 protezione SAV (28) 

63977 rem 12000 koala (27) 

63978 rem 1 1900 change pag video (27) 

63979 reni 1 1X00 salva ram (27) 

(Le routine di questo numero sono di Michele Maggi) 


la cella di memoria 43. quello della cella 44 e la locazio- 
ne da essi puntata: I. 8 e 2049. 

DOKH simula una doppia Poke in funzione delfin- 
seri melilo della locazione che si vuole puntala dal pun- 
tatore P‘\ anch'esso specificato nell'input. 

Se. ad esempio, vogliamo che il puntatore 43 e 44 pun- 
ii alla locazione 49152, sarà sufficiente specificare la lo- 
cazione (49152) e il puntatore (43); il computer rispon- 
derà visualizzando (ma non eseguendo) le istruzioni 
necessarie alla DOKL. in modo da evitare probabili e 
pericolosi errori indesiderati che potrebbero inchioda- 
re il computer. 

Per rendere operativi i due comandi Poke sarà suffi- 
ciente digitarli ed eseguirli a parte. 

100 REfl ESEMPIO D * USD 
110 REM ESEGUE LE DOPPIE 
120 REM PEEK E POKE 
140 : 

160 INPUT ”SCEGL I : DEEK Cl) DOKE 
( B ) ” ; J K 

170 IF JK-1 THEN INPUT ”PUNTAT 
ORE ” ; P 

180 IF JK-B THEN INPUT "L0CAZI0 
NE DA PUNTARE”; AD: INPUT ”PU 
NTATORE ” ; P 
185 : 

190 GOSUB 16900 

191 : 

9999 END 

16900 IF JK< 1 OR JK> 2 THEN X0$-”E 
RR”: RETURN 

16901 0N JKG0T0 16905,16918 
16805 IF P<1 OR P>65535 THEN PRIN 

T”ERR” : END 

16910 PRINT”PEEK”P”- ”PEEK( P) 

16912 PR I NT "PEEK "P + l ”■ "PEEK ( P + l ) 

16914 PRINT "LQCAZ I ONE PUNTATA”PEE 
K( P)+256*PEEKCP+1 ) 

16915 RETURN 

16918 IF P<1 OR P>65535 THEN PRIN 
T"ERR” : END 

16919 IF AD< 1 OR AD>65535 THEN PR 
INT”ERR” : END 

169B0 HI-INTCAD/256) 

169B5 L0-AD-H I *256 

16940 PR I NT "POKE ”P" , "LO 

16941 PRINT"P0KE"P+1 ”, ”HI 

16942 RETURN 

16943 : 

16845 REM ESEGUE LA DOPPIA PEEK E 
LA DOPPIA POKE 
16999 REM NOME: DEEK 8 DOKE 
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U n elevala percentuale dei nostri let- 
tori è alle prime armi nel mondo dell'in- 
formatica c incontra difficoltà nel digita- 
re i programmi da noi pubblicati 

I caratteri “speciali" bianchi su fondo 
nero (semi-grafici in Teverse”) che rap- 
presentano precisi comandi per i compu 
ter ( ommodorc sono riportati nel listato 
di esempio a sinistra così come appaiono 
digitandoli su video o su stampante, 
mentre a destra come li rappresentiamo 
nei nostri listati. 

La riga Viti, ad esempio, deve così es- 
ser interpretata: 

dopo aver battuto il carattere di virgolet- 
te (**) che si ottiene premendo il tasto 
SHIFT insieme con il tasto 2. è necessa- 
rio battere il carattere CRSR DOWN (il 


tasto, cioè, che normalmente spostereb- 
be il cursore nella cella video 
sottostante). 

Analogamente, nella riga INO del lista- 
to “tradotto” (di destra), il termine [NE- 
RO] sta a significare che bisogna utilizza- 
re il carattere speciale del colore nero 
(tasto CTRL insieme con il tasto 1. vedi 
listanti sinistra). 


Per ricordare in che modo vengono 
normalmente visualizzati i caratteri spe- 
ciali, nella seconda parte delle righe di 
sinistra (dopo i RF.M) sono riportati i 
tasti che è necessario premere per otte- 
nere il carattere -comando "speciale” 

I .a Redazione 


I listati della 
Systems Editoriale 
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100 

REM I CARATTERI SPECIALI 

100 

REM I CARATTERI 

1 10 

REM PEI COMPUTER COMMODORE 

1 10 

PEM SPECIALI: COME 

120 

REM COME APPAIONO NORMALMENTE 

120 

^EM VENGONO INDICATI 

130 

REM SU VTDFO 

0 SU CARTA. 

1 30 

p EM SULLE RIVISTE: 

140 

REM •'C'RL = TAS T C CONTROL) 

140 

REM COMMODORE 

150 

REM <CMDR * TASTO COMMODORE ) 

150 

PEM E COMMODORE 

160 

REM CCRSR = TASTI CURSORE) 

160 

REM COMPUTER CLUB. 

170 

• 

4 


170 

• 

• 

160 

PR I NT "B" i REM 

CTRL >1 NERO 

190 

PRINT" C NERO ] " 

190 

PR INT-SP 1 RRM 

" >2 BIANCO 

190 

PR INT" [BIANCO 3" 

300 

PRINT ”1 M : PEM 

- +3 ROSSO 

200 

PRINT" CROSSO ] " 

210 

PPINT-w" : REM 

" *4 AZZURRO 

210 

PRINT" r AZZUR 3 " 

220 

PRINT"*" : REM 

■ 45 PORPORA 

220 

PR I NT " C V I OLA 3 " 

230 

PR I NT "11" : REM 

• 46 VERDE 

230 

PRINT" [VERDE 3 " 

240 

PR INT " 3" : REM 

• 47 BLU 

240 

PRINT" CBLEU3 " 

250 

PRINT "a": REM 

" 48 GIALLO 

250 

PRINT" [GIALLO! " 

260 

PR INT "3" '-REM 

" *9 REVERSE ON 

2S0 

PR I NT " CPVS 3 " 

270 

PR INT"*" : REM 

" 40 REVERSE OEF 

270 

PP I NT " [ R VOFF 3 " 

260 

PR INT" : REM 

CMDRM ARANCIO 

230 

PRINT" CARANC 3 " 

290 

PRINT "II* SREM 

" 42 MARRONE 

290 

PR INT" CMAPR 3 " 

300 

PP INT"Q" : REM 

" 43 ROSSO CHIARO 

300 

PRINT" [POSA 3" 

310 

PR TNT"HI" : PEM 

M 44 GRIGIO I 

310 

PP INT" [ GP I G I 0 1 3" 

320 

PR INT";j" : REM 

• 43 GRIGIO £ 

320 

PP INT" [ OR I G 1 02 3 " 

330 

PRINT"»" : REM 

■ *6 VERDE CHIARO 

330 

PF INT" [VERDE? 3 " 

340 

PP ! NT " 13" ! REM 

" *7 BLU CHIARO 

340 

PR T * !T l CELESTE 3 " 

350 

PRINT "S* ?RCM 

" 4? GRIGIO 3 

350 

PRINT" [GRIGI 033 " 

360 

PR IN— "fl" SPEM 

CRSR IN 8ASS0 

360 

PR INT" [DONNI " 

3-0 

PR INT " H" : REM 

CRSR. A DESTRA 

370 

PPINTTRIGHT3" 

360 

PP l NT " □" : PEM 

CRSR IN ALTO 

360 

PRINT" [UP 3" 

390 

PP INT "11" ? REM 

CRSR SINISTRA 

330 

PP I NT * [LEFT 3 " 

400 

°P I N T " : PEM 

HOME 

400 

PRINT" [HOME! " 

4 10 

PR INT" J" :REM 

CANCELLA SCHERMO 

4 10 

PRINT" CCLEAR3 " 

420 

: 


420 

: 

430 

REM ESEMPI CI V I SUAL I ZZ AZ IONE : 

430 

REM ESEMPI 

440 

ppiNT 

: REM CANCELLA SCHERMO, 

440 

PR INT" CCLEAR 3 [2 DOWN] 

450 

! 

REM CRSR DUN DUE VOLTE 


[4 RIGHT3" 

460 

S 

REM CRSR DESTRA TRE " 

450 


470 

• 


460 


430 

PP INT" Iflnr s REM 6 I ANCO ,CRSR SINISTRA 

470 


490 

: • REM DUE VOLTE E CRSR OUTJ | 

460 

PP INT" [BIANCO 3 C2 LEFT 

«:ri0 

: : REM UNA SOLA VOLTA 


3 CDOUN3 " 
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C 128 



di Roberto Mango 


(Chiunque passa dal modo 64 a 
quello 128. si aspetta, giustamente, di 
trovarsi di fronte ad una macchina 
più potente, veloce e. in definitiva, 
più "capace''. 

Tutto ciò è vero dal momento che il 
C/128 è un calcolatore più facile da 
programmare, più veloce nellesegui- 
re le varie istruzioni e dotato di una 
quantità di memoria non accessibile 
in modo 64. 

L'utente del 128 che abbia dato uno 
sguardo almeno una volta al manua- 
le della macchina, sa benissimo che 
il BASIC 7.0. linguaggio interprete 
del computer, dispone di comandi 
piuttosto potenti per la gestione della 
grafica; spesso, però, lo stesso utente 
non sa come usarli, nè in quale tipo 
di applicazione utilizzarli proficua- 
mente. 

Questo pubblicato è un esempio di 
programma in cui tali comandi pos- 
sano essere impiegati per un risultato 
soddisfacente, soprattutto conside- 
rando il tempo relativamente breve 
che occorre perdigitarlo. Il program- 
ma serve per disegnare figuro su vi- 
deo. tramite joystick in porta N.2. co- 
lorarle e registrarle (sul dischetto) in 
modo da riutilizzarle, in seguito, in 
altri programmi. 

Se cercate un potente strumento di 
CAD (Computer Aidcd Design, cioè 
grafica computerizzata), il listato di 
queste pagine non fa per voi; se. inve- 
ce. desiderate, più modestamente, 
scoprire come funzionano le istru- 
zioni grafiche del C/128, e divertirvi, 
digitatelo subito (senza commettere 
errori!). 

Nel programma vengono, infatti, u- 
tilizzati quasi tutti i comandi BASIC 
riguardanti la grafica, e moltissimi 
dei comandi per gestire gli sprite in 
modo efficace e veloce. 


Un listato interessante per chi intende 
sfruttare a fondo le capacità grafiche 
del potente computer della Commodore 


Cenni sulla struttura 
del programma 

Il programma lavora su uno scher- 
mo di 320x200 pixel, ossia in modali- 
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là grafica 1: tale modalità permette la 
gestione di due colori per ciascuna 
casella di 8x8 pixel (corrispondenti 
allo spazio occupato, di norma, da 
un carattere): il colore di sfondo e il 
colore di primo piano. In questo mo- 
do si raggiunge un risultato migliore 
che non ricorrendo al modo multico- 
lore che. per aumentare il numero di 
colori disponibili, è costretto a di- 
mezzare la risoluzione a 160x200 
pixel. 

Tale scelta pone, però, un limite: 
tentando di disegnare in uno dei 1000 
quadrati di 8x8 pixel con un colore 
differente da quello ivi già presente, 
quest'ultimo cambierà, assumendo 
la colorazione dell'ultimo colore se- 
lezionato in ordine di tempo rag- 
giungendo, talvolta, risultati inaspet- 
tati c sgradevoli. 

Per ovviare a questo inconveniente 
è presente un secondo cursorc-spritc 
che, attivato, si sovrappone costante- 
mente sulla casella in cui sta dise- 
gnando il cursore principale. I due 
cursori sono facilmente distinguibili 
poiché il primo (sprite N. 1 ) è a forma 
di croce, il cui centro corrisponde al 
pixel in cui si disegna; il secondo, in- 
vece. è un quadrato pieno di 8x8 
pixel. 

11 secondo cursore delimita, istante 
per istante. la casella in cui si sta dise- 
gnando. ricordando, in tal modo, che 
nella zona può esservi soltanto un 
colore. 11 lettore, di conseguenza, pre- 
sterà attenzione a non superare, col 
joystick, la zona delimitata per non 
“invadere" zone limitrofe. Dopo al- 
cune prove, con i due cursori attivati 
e spostandosi di un pixel per volta, si 
può evitare di "pasticciare" una zona 
già colorata passandovi sopra una li- 
nea di diverso colore. 

Nel disegno possono essere visua- 
lizzati anche caratteri alfanumerici 
al fine di dare una intestazione al di- 
segno stesso oppure per scrivervi un 
messaggio. Tale funzione è esplicata 
dal comando BASIC TEXT'. che 
scrive nella pagina grafica una deter- 
minata stringa in una posizione cor- 
rispondente a una casella di 8x8 sulla 
normale matrice video di 40 colonne 
per 25 righe. Anche in questa occa- 
sione non potrete fare a meno di ap- 
prezzare l'utilità del secondo cursore. 


che indicherà costantemente, se op- 
portunamente attivato, l’esatta posi- 
zione in cui verrà visualizzata la pri- 
ma lettera del messaggio. 

Il programma permette l'utilizzo 
dei 16 colori disponibili sul 128: per 
cambiare il colore di scrittura corren- 
te è sufficiente la pressione del tasto 
“C": il bordo assume cosi il colore 
corrente di scrittura. E' da ricordare 
che ogni disegno o scrittura di testo 
avverrà sempre nel colore corrente, o 
se preferite, nel colore del bordo. 


1 comandi disponibili 

Color 

Seleziona il colore. Premendo il ta- 
sto **C" il colore corrente cambia ed è 
possibile verificarlo dal fatto che il 
bordo dello schermo assume la nuo- 
va colorazione. 

Fasi 

Cambia la velocità, premendo “F* 
la velocità del cursore si dimezza o si 
raddoppia. La sua funzione è di per- 
mettere di disegnare con una mag- 
giore precisione quando se ne pre- 
senti il bisogno. Premendo nuova- 
mente “F* si ritorna al modo nor- 
male. 

Premendo i tasti più (+) oppure 
meno (-) il cursore aumenta o dimi- 
nuisce di velocità. Il valore di default 
è 1 con il modo fast inserito; con il 
modo slow (nuova pressione del ta- 
sto “F se si è in modalità fast) si ot- 
tiene la minor velocità possibile; pre- 
mendo il tasto “+ " per dieci volte di 
seguito e inserendo la modalità fast si 
ottiene la massima velocità disponi- 
bile. 

Nota: la modalità fast o slow non 
coicidc con gli analoghi comandi 
BASIC: si limita semplicemente a 
raddoppiare o dimezzare il numero 
di pixel tracciati. Non è possibile vi- 
sualizzare la modalità corrente o la 
velocità: tuttavia la regolazione della 
velocità risulta agevole e efficace. 

Drmw mode 

Premendo “D" il computer traccia 
un punto, corrispondente al centro 
del cursore principale, e continua a 
tracciarlo fino alla successiva pres- 
sione del tasto "D'\ Al momento del 


RUN ci si trova in modalità di 
disegno. 

Save/Load 

Premendo il tasto "S" è possibile 
salvare la schermata grafica visualiz- 
zata. Si digita il nome del file che vie- 
ne salvato come file programma, os- 
sia utilizzabile da un altro program- 
ma semplicemente settando il modo 
grafico e caricandolo con il comando 
BLOAD. 

Premendo altresì il comando "L si 
può caricare da disco una schermata 
precendentemente salvata. 

Con il comando “I " è possibile esa- 
minare la directory del dischetto ri- 
spondendo "D" alla domanda "File* 
name?". 

Attivazione dei cursori 

Ambedue i cursori possono essere 
attivaati o disattivati: 

X attiva/disattiva il cursore principale 
A attiva/disattiva il secondo cursore 

Width ( larghe zza) 

Le righe verticali possono essere al- 
largate o ristrette: premendo "W". ap- 
pena attivato il programma, le linee 
verticali risulteranno di ampiezza 
doppia (2 pixel). Non premendo (op- 
pure premendo il tasto "W" un nu- 
mero di volte pari) le linee verticali 
verranno formate da un solo pixel. 

Box 

Tramite questa opzione si può dise- 
gnare un quadrato o un rettangolo: 
premendo una volta "B ", quando il 
cursore-croce è posizionato nell'an- 
golo superiore sinistro del rettangolo 
(o quadrato) da disegnare, viene trac- 
ciato un punto come pro-memoria. 
Premendo una seconda volta “B . 
dopo essersi posizionati sull'angolo 
inferiore destro, il quadrato (o il ret- 
tangolo) viene visualizzato. 

Ovals/Circles 

T ramite questa opzione si può dise- 
gnare un cerchio oppure un'ellisse: 
premendo "O" sul centro del cerchio 
si visualizzerà una croce identica al 
cursore principale al centro del cer- 
chio per ricordare la posizione del 
centro: in seguito, muovendo il joy- 
stick a destra o a sinistra, si determi- 
na il raggio: per ottenere un cerchio 
premete due volte "O" sull'estremo 
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del raggio. Se, invece, volete ottenere 
un'ellisse, si determina dapprima la 
lunghezza dell'ellisse spostando il 
joystick a destra (o a sinistra) e pre- 
mendo "O" una prima volta; in se- 
guito si stabilisce la sua altezza spo- 
stando il joystick in alto (o in basso); 
premendo nuovamente "O" si ottiene 
l'ellisse. 

Erise 

Premendo il tasto **E” si cancella la 
pagina grafica. Il computer, per pru- 
denza, ne chiede conferma attenden- 
do la pressione del tasto “S”; in caso 
contrario si ritorna alla “normalità*'. 

Paint 

Premendo il tasto “P” si colora l’a- 
rea presente attorno al cursore fino a 
trovare una delimitazione. Attenzio- 
ne, perchè se il computer non trova 
un limite, o se trova un punto di inter- 
ruzione in una figura, il colore “usci- 


rà" dalla figura, sporcando irrime- 
diabilmente il disegno. 

Tfesto 

11 tasto “T** permette di inserire un 
testo nella pagina grafica facendone 
comparire il primo carattere esatta- 
mente ove indicato dal secondo cur- 
sore. Premendo il tasto “T* il compu- 
ter chiede la stringa testo con un sem- 
plice INPUT (non superare le due li- 
nce di dati) e poi. premendo il tasto 
Return, la visualizza sulla pagina 
grafica. 

Posizionamento 

Premendo uno dei tasti qui indicati 
il cursore si posiziona in alcuni punti 
particolari, e precisamente: 

(freccia a sinistra) nel centro del 
video 

1 in alto a sinistra 

2 in alto a destra 


3 in basso a sinistra 

4 in basso a destra 

Menù di cancellazione 
Data la difficoltà di cancellare un 
cerchio già tracciato, questa routine 
svolge il lavoro al vostro posto: pre- 
mendo “M” il computer chiede quale 
dei cerchi disegnati deve essere can- 
cellato, numerando i cerchi presenti 
sullo schermo con valori compresi 
tra zero e 99. Non si possono, quindi, 
tracciare più di 100 cerchi, o meglio, 
disegnandone altri, l'ultimo cerchio 
tracciato non potrà più essere cancel- 
lato da programma, ma solo manual- 
mente. Successivamente il computer 
farà lampeggiare il cerchio indicato 
(cancellandolo c ridisegnandolo su- 
bito dopo) e attenderà la pressione 
del tasto “S" come conferma. Alla 
pressione di qualunque altro tasto, 
tornerà alla normalità, ignorando il 
comando. 


100 REM DISEGNATORE PER C/12B IN NODO 40 COLONNE 
110 REM BY ROBERTO MARIGO 
120 REM JOYSTICK IN PORTA N.2 
130 KEY1 , CHRSC 133) : KEY7 , CHRSC 13G) 

140 FAST : CLR : GRAPHIC1 , 1 : COLORI . 1 : COLORI , 1 : CDL0R4 , 1 : D IMCC?sC99 , 3 ): REM INI ZI AL IZZA 
PAGINA GRAFICA 

150 DRAUJ1, 10 , 6TO10 , 9 : DRAUJ1 , 5 , 11TO0 , 11 : DRAUI1 , 10 , 13TO10 , 16: DRAUI1 , 12. 11T01S, 11: REM 
DISEGNA LA CROCE CURSORE 

160 SSHAPEAS, 1, 1 ,22, 22: SPRSAUAS, 1 : SPRSAUAS , 2 : CC-0 : T-0 : C-l : F-l : X-93 : Y- 160 : XX-X : YY 
“Y : T2-1 : IM-1 : REM E LA METTE NELLA STRINGA AS E POI NELLO SPRITE «1 
170 GRAPH IC1 , 1 : BOXI ,7.0,14,15,0,1: REM DISEGNA UN QUADRATO PIENO: 

100 SSHAPEAS ,1,1,22,22: SPRSAUAS , 3 : SPRI TE3 , 0 , 16 : SPR ITE2 ,0,1: REM E LA METTE NELLA 

STRINGA AS E POI NELLO SPRITE #3 

190 SLOW : SPR I TE 1 , 1 , 1 : COLORO . 2 : GRAPH I CI , 1 

200 J- JOYC 2 ) : M0USPR1 , Y+15 , X+40 : X2- INT ( X/B) •0+4 3 : Y2- I NT CY/B)*B+1B: M0USPR3 . Y2 , X2 : X 
X-X:YY-Y:REM CONTROLLA JOYSTICK E MUOUI SPRITE 

210 AS- “ ” : GETAS : I F A$-”F”THENF“-F-*T : GOTO200 : REM CONTROLLA TASTIERA 

220 I FF- 1 ANDAS- " "THEN490 : ELSE240 

230 1FA$-”D”THEND— D+l : GQTO200 

240 I FAS-”C”THENBEGIN : ELSE290 

250 C“C+1: I FC> 16THENC-1 : EL5EC-C 

260 COLORI ,C:C0L0R4,C 

270 BEND 

200 I FA$-”C ,, THENC0L0R1 , C : C0L0R4 . C 
290 I FAS- M S ”0RA$- ”L "THEN720 

300 I FAS- M X "ANDT-0THENSPR ITE1 , 0 : T-l : GQTO200 : REM SPEGNI IL CURSORE 
310 IFA$-”A”ANDT2-0THENSPRITE3, 0 : T2-1 : GOTO200 : REM SPEGNI IL CURSORE 2 
320 I F AS- ”0 ** ANDRAD-0ANDBOT-0THEN770 
330 I FB0T-1 ANDA$-”O”THEN790 
340 I FRAD- 1 ANDAS- ”O”THEN7B0 

350 I FAS- ”X "ANDT-1THENSPR I TEI , 1 : T-0 : GDTO200 : REM ACCENDI IL CURSORE 

360 IFA$- ,, A ,, ANDT2-lTHENSPRITE3 t 1 : T2-0: GQTO200 : REM ACCENDI IL CURSORE 2 

370 I FAS- ”UT’ANDW-0THENUIDTH2 : U-l : GOTO200: REM SETTA DIMENSIONE RIGHE UERTICALI 

300 IFA$- ,, U”ANDU-1THENUIIDTH1 : W-0: GOTO200: REM LARGHEZZA LINEA 

390 I FAS- ”B ”ANDB— 1THEN040 : REM DISEGNO DI UN RETTANGOLO/QUADRATO 

400 I FAS- “B”ANDB-0THEN030 
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410 I F A5- "E "THENGOSUB910 : GOTO200 : REM CANCELLAZIONE SCHERMO 
4?0 I F AS- "M"THENB60 : REM MENU CANCELLAZ I ONE CERCH I /ELL I SS I 
430 I FAS-"P"THEN710 : REM PAINT: COLORAZIONE DI ZONE DELIMITATE 
440 IFAS-”T"THENB50:REM SCRITTURA DI CARATTERI ALFANUMERICI 

450 I FAS-”D"THEND--D+1 : GOTO200 : REM ATT IUA/D I SATT I UA LA MODALITÀ* DI DISEGNO A MA 
NO LIBERA 

4G0 I FAS- "♦ "THEN I M- I M+ 1 : I F IM> 12THEN I M-12 : GOTO200 : REM AUMENTA UELOCITA* CURSORE 

470 IFAS-"-"THENIM-IM-l: IFIM< 1THENIM-1 ; GOTO200 : REM DIMINUISCI UELOCITA' CURSORE 

4B0 IFAS-"-”THENX-99: Y-160 : GOTO200 : REM METTI IL CURSORE NELLE UARIE POSIZIONI 

430 IFAS-"1"THENX-0:Y-0:GOTO200 

S00 IFAS-"2"THENX-0: Y-319 : GOTO200 

510 I FA$- "3 "THENX- 199 : Y-0 : GOTO200 

520 I FA$-"4 "THENX- 199: Y-319 : GQTO200 

530 IFJ-0THEN200 

540 ONJGOSUB5B0, 570, 6 10. 600, 630, 650, 690,600 -.REM GESTISCE POSIZIONI DEL JOYSTICK 

550 IFO-1THEN200 

560 DRAldl , Y , XTOYY , XX : GOTO200 

570 Y-YMM: I FY> 319THENY-319 : REM LIMITE MASSIMO PER DISEGNO IN ORIZZONTALE 
5B0 X-X-IM: IFX<0THENX-0:REM LIMITE MASSIMO PER BORDO SINISTRO 
590 RETURN 

600 X-X+IM: I FX> 199THENX- 199 : REM LIMITE MASSIMO PER BORDO INFERIORE 
610 Y-Y+IM: I FY> 319THENY-319 
620 RETURN 

630 X-X+IM: IFX>199THENX-199 
640 RETURN 

650 X-XMM: I FX> 199THENX-199 

660 Y-Y-IM: IFY<0THENY-0: REM LIMITE MASSIMO PER BORDO SUPERIORE 
670 RETURN 

6B0 X-X-IM: IFX<0THENX-0 
690 Y-Y-IM: IFY<0THENY-0 

700 RETURN: REM TERMINE ROUTINE GESTIONE JOYSTICK 

710 D-l : PA I NT1 , Y , X : GOTO200 : REM ROUTINE DI RIEMPIMENTO DI AREE 

720 GRAPH IC0 , 1 : COLORO , 2 : C0L0R5 , 1 : SPR I TEI , 0 : REM ROUTINE SALUAT AGG I O/CAR 1 C AMENTO 
730 I NPUT "FI LENAME : " ; NS : I FAS- "L "THEN750 

740 PR INT”£lsBAUING "NS : BSAUE (NS ) . B0 , P716BT0P163B4 : GRAPH I CI : SPR I TEI . 1 : GOTO200 
750 I FNS- "D "THENCATALOG : GOTO730 

760 PR I NT "fiiSLOADING " ;NS: BLQADCNS ) , B0 , P716B: T-l : D-l : GRAPH IC1 : GOTO2G0 

770 XC-X : YC-Y : RAD— 1 : SPR I TE2 , 1 : M0USPR2 , YC* 15 , XC+40 : GOTO200 : REM ROUTINE DI CIRCLE 

ED ELLISSI 

7B0 R-ABSC YC-Y ) : BOT-1 : RAD-0 : GOTO200 
790 I FX-XCTHENBR-R : ELSEBR-ABSCXC-X ) 

B00 C I RCLE 1 . YC , XC , R . BR : BOT-0 : SPR ITER, 0:CC"sCCC,0)-YC: CC . 1 ) -XC : CC?S( CC , 2 ) -R : CCT; 

CCC, 3)-BR 

010 CC-CC^l: IFCC-100THENCC-99 
B20 GOTO200 

830 B-l : D-l : Xl-X : Yl— Y : DRAW1 , Y , X : GOTO200 : REM ROUTINE DI DISEGNO DI QUADRATI E RET 
T ANGOLI 

B40 X2-X : Y2-Y : BOXI , Yl , XI , Y2 , X2 : B-0 : GOTO200 

850 XT-INTCX/B) : YT- INTCY/B) : GRAPH ICO. 1: INPUT "TESTO : TS : GRAPH I CI : CHAR1 . YT , XT , T$ 
: GOTQ200 : REM ROUTINE DI TESTO 

860 GRAPH I C0, 1 : INPUT "»l»L*i?L»Ji^UMERO CERCHIO (0-99) " ; CX : I FCX> 990RCX< 0THEN060 
070 GRAPHIC1 ,0;CI RCLE0 , CC-sCCX , 0 ) , CC’s (CX , 1 ) , CC"i (CX , 2 ) , CC^sCCX , 3 ) 

8B0 CIRCLE1 , CCV.(C X, 0) . CC’i(CX , 1 ) . CC“s(CX ,2) , CC*i(CX , 3) 

890 GETKEYAS: IFASO ”S"THEN200 

900 C I RCLE0 , CC*S ( CX , 0 ) , CC m '. ( CX , 1 ) , CC\ ( CX , 2 ) , CC-S ( CX , 3 ) : GOTO200 
910 GRAPH ICO , 1 : PRI NT "CANCELLO TUTTO - SICURO (S/N) ?" 

980 GETKEYXS: I FXS< > "S"THEN940 

930 GRAPH I CI , 1 : X-99 : Y-160 : C-l : C0L0R4 , C : COLORI , C : GQTO200 : REM CANCELLA PAGINA GRAF 
ICA 

940 GRAPHIC1.0: RETURN 
950 END 
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C 64 - C 128 


Uno schermo più allegro 


Tre nuove routine per il tuo sistema personale; ed una versione 
più efficiente di altre due già pubblicate in precedenza 


* cara di Alessandro de Simonc 


lampeggio righe (per C/64) 

(22935/23000) 

Il "lampeggio" di un messaggio sullo schermo si ottie- 
ne, con questa routine, in due formati diversi: ripetendo 
alternativamente il messaggio nei modi di stampa 
"Rvs/RvofT'. oppure alternando il colore della stampa 
da bianco a blu; assumendo che quest'ultimo sia il co- 
lore del fondo, si avrà un effetto "appare/scompare”. 

Per ottenere il lampeggio si deve far precedere la 
stampa di ciascun messaggio da 

SYS XXXXX,A,B 

in cui la variabile A e quella B possono variare nei ri- 
spettivi intervalli: A=0-2; B=0-7. La routine esegue 
dapprima l'istruzione JSRSB7F1 che "salta" la virgola 
e preleva dal testo il primo parametro (A). Se questo è u- 
guale a 2, vengono posti nei registri SFB-SFC i codici A- 
SC1I corrispondenti a “bianco/blu"; se invece vale 0 
oppure 1, negli stessi registri vengono posti i codici 
di Rvs/RvofT 

In maniera analoga viene prelevato il secondo para- 
metro (B) che determina la frequenza del lampeggio 
con un valore compreso tra 0 e 7: utilizzando questo da- 
to in combinazione con il byte inferiore dell'orologio 
($A2). viene fissato il periodo con cui la routine stampa, 
in uscita (mediante JSRSFFD2), il contenuto del regi- 
stro $FB o quello del registro $FC. 

Tale periodo è di 1/60 di secondo per B=0, e raddop- 
pia per ogni unità in più fino a circa 2 secondi per B = 7. 
Per il lampeggio Rvs/Rvoff, inoltre, il tipo di stampa 
viene invertito a seconda che A valga zero oppure uno: 
ciò permette di far lampeggiare più linee in controfase, 
eventualmente con periodi diversi. 

Naturalmente sarà necessario, alla fine di ogni mes- 
saggio o serie di messaggi, inserire tanti "cursor up" 
quante sono le linee, in modo da riposizionare il curso- 
re correttamente: un successivo GET di attesa ripete 
l'intero ciclo dall'inizio finché non si preme un 
tasto. 

Subito dopo arresta il programma richiamando con 
un loop’ la subroutine GETIN del Kemal (JSR 
SFFEA). finché quesfultima non carica nell'accumu- 
latore un valore diverso da zero (cioè tasto premuto): 
tale valore, infine, viene inserito nel registro della 
variabile-stringa prescelta, prima di tornare al Basic. 


1000 PR I NTCHRS ( 147 ) "QUESTA ROUTI 
NE CONSENTE DI FAR LAMPEGGI 
ARE DEI MESSAGGI 

1010 PR I NT”SULL0 SCHERMO NEL MOD 

0 RUS/RUOFF 0 NEL MODO ON/ 
OFF (SFONDO BLU)” 

1020 RETURN 

1030 DATA 32,241,183,224,2,208,1 
4,168 

1040 DATA 0, 133,253,168,5,133,25 

1 , 168 

1050 DATA 31,133,252,208,10,168, 
18,133 

1060 DATA 251,163,146,133.252,13 
4,253 

1070 DATA 32,241,183,168,1,224,0 
,240 

1080 DATA 6,10,6,253,202,208,250 
, 120 

1080 DATA 37,162,88,68,253,208,6 
,165 

1100 DATA 251,32.210,255,86,165, 
252,32 

1110 DATA 210,255,86 
1120 DATA -1,8465 


100 REM DEMO LAMPEGGIO MESSAGGI 
110 REM BY ROBERTO MORASSI 
120 PRINTCHRSC 147) 

125 : REM 22835- INDIRIZZO UTILIZ 
ZATO SU CCC 

130 SYS22335 , 0 , 4 : PR I NT ”PR I MO LA 
MPEGGIO” 

140 SYS22935, 1,3: PR I NT "SECONDO 
LAMPEGG I 0 ”CHR$ C 145)CHRS( 145 
) 
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150 GET AS:IF AS-"” THEN 130 
150 PR INT : PRI NT 

170 SYS22935 ,2,5: PR INT "TERZO LA 
MPEGG I 0"CHR$ C 145) 

100 GET AS3 : I F AS- M " THEN 170 
150 POKE 53201 , 0: PRINTCHR$(5) : R 
EM SCHERMO NERO E CURSORE E 
I ANCO 
559 END 


Ciclo di attesa 
(per C/64) 

(23001/23034) 

Il ben noto “loop’’ di attesa del tipo 

10 GET A$:1F AS= U ” THEN IO 

che, in Basic, arresta il programma finché non si preme 
un tasto e poi assegna il CHRS di quest'ultimo alla va- 
riabile A. può essere sostituito con una SYS che punti a 
questa routine. 

E' però necessario che la variabile-stringa in questio- 
ne (A$. o un’altra qualunque) venga 'dichiarata" prima 
di qualsiasi altra stringa all'inizio del programma con 
un'istruzione del tipo: A$-"A‘\ 

La routine proposta utilizza, infatti, i puntatori di ini- 
zio variabili (S2D-S2E) per individuare il registro in cui 
è contenuto il valore della variabile-stringa, c memoriz- 
za tale registro (nella forma byte basso, byte alto) in 
SFD-SFE. 


1000 PRINTCHRSf 147? "QUESTA ROUTI 
NE ARRESTA IL PROGRAMMA FIN 
□ ALLA 

1010 PRI NT "PRESSIONE DI UN TASTO 
, E ASSEGNA ” ; 

1020 PRINT”QUEST ‘ULTIMO ALLA PRI 
MA UAR I AB I LE IN MEMORIA" 

1030 RETURN 

1040 DATA 155,45,24,105,3,133,25 
1,165 

1050 DATA 46,105,0,133,252,160,0 
,177 

1060 DATA 251,133,253,200.177,25 
1,133 

1070 DATA 254,32,220,255,240,251 
, 160 

1000 DATA 0,145,253,96 

1090 DATA -1,5076 


100 REM DEMO PER CICLO DI ATTES 
A 

110 REM BY ROBERTO MORASSI 

120 AS-"L": PRINTCHRSC 147) "PREMI 
UN TASTO” 

130 SYS23001 : REM INDIRIZZO UTIL 
I ZZATO SU CCC 

140 PRINT"HAI PREMUTO: "AS 
999 END 


Riempi-schermo 
(per C/64) 

(23035/23085) 

Questa routine riempie istantaneamente lo schermo 
con uno stesso carattere colorandolo, contemporanea- 
mente, con un colore prefissato: si possono così ottene- 
re, soprattutto usando i caratteri semi grafici, effetti 
spettacolari. 

Si usa. come al solito, il comando SYS XXXXX.A.B 
in cui le variabili A e B sono, rispettivamente, i codici- 
schermo (e non ASCII!) del carattere e del colore 
prescelti. 

La routine preleva questi due valori con il solito 
JSRSB1F7. dopo aver predisposto gli opportuni punta- 
tori (da SFB a $FF) all'inizio della memoria di schermo 
e della memoria-colore ($ 0800 ). 

Un doppio ciclo provvede poi ad inserire, alternativa- 
mente. il carattere ed il colore in quattro pagine conse- 
cutive delle rispettive zone di memoria. Tenete presente 
che i registri-schermo riempiti non sono MXM) bensì 
1024. c comprendono quindi anche gli otto puntatori di 
sprite che si trovano “dopo" la memoria di schermo. 

Ciò si c reso necessario perottimizzare la stessa routi- 
ne che. altrimenti, avrebbe richiesto un maggior nume- 
ro di byte. 

1000 PRI NTCHRSC 147} "QUESTA ROUTI 
NE RIEMPIE LO SCHERMO CON U 
N UNICO CARATTERE 
1010 PRINT "E UN UNICO COLORE" 
1020 RETURN 

1030 DATA 173,136,2,133,252,190, 
252,169 

1040 DATA 0,133,251,133,253,160, 
169,215 

1050 DATA 133,254,169,4,133,255, 
32,241 
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1060 DATA 183, 138,72,32,241, 183, 
104,230 

1070 DATA 252,230,254,72,138,145 
,253 

1080 DATA 170,104,145,251,200,20 
B , 245 

1090 DATA 198,255.208,237,96 
1100 DATA -1,8702 


100 RE fi DIMOSTRATILO DELLA ROUT 
INE EfIP I SCHERMO 
110 REM BY ROBERTO MORASSI 
115 REM 23035* I ND I R I ZZO UTILIZZ 
ATO SU CCC 

120 SYS23035 , 1 , 0 : FOR X-0 TO 100 
0 : NEXT 

130 SYS23035 ,91,3: FOR X-0 TO 10 
00: NEXT 

140 SYS23035 , 86 , 1 : FOR X-0 TO 10 
00: NEXT 
999 END 


Print At 

(Vedi CCC N.35) 

Sul N.35 di Commodore Computer Club è già stata 
pubblicata una routine in L.M. che provvede a simula- 
re il comando PRINT AT che. nel Basic V.2. è 
assente. 

Il motivo per cui ne proponiamo una seconda Versio- 
ne risiede nel tatto che la rubrica ‘ Nuovo Sistema*’ vuo- 
le rappresentare una palestra in cui gli stessi lettori, la- 
vorando su materiale già pubblicato, pervengono a ri- 
sultati sempre migliori oppure, semplicemente, ad im- 
postazioni. e risoluzioni, diverse di uno stesso pro- 
blema. 

4 

Naturalmente proponiamo la routine non numerata 
nel modo convenzionale* poiché potrebbe generare 
confusione in sede di compattamento: al lettore, dun- 
que. la decisione di utilizzarla come meglio ritiene op- 
portuno. tenendo presente che. come tutte le routine di 
questa rubrica, è rilocabile ovunque in memoria 
Ram. 

Con questa brevissima routine viene simulata l’istru- 
zione PRINT AT. che stampa una qualunque stringa a 
partire da un punto prefissato dello schermo. La sintas- 


si da usare è la solita... 

SYS XXXXX,Y,X,A$ 

...in cui Y e X sono, rispettivamente, la posizione del 
cursore sulla riga (da 0 a 39) e il numero della riga stessa 
(da 0 a 24); AS è la variabile-stringa (o Perfettiva stringa) 
che deve essere stampata a partire dalla posizione 
(Y.X). 

La routine preleva i parametri Y e X dal testo, con due 
istruzioni JSRSB1F7, e li dispone nei corrispondenti 
registri del micro: richiama poi la subroutine PLOT del 
Remai (JSR SFFFO) che sposta il cursore nel punto vo- 
luto. 'salta'* la virgola con JSRSAFFD. c passa infine il 
controllo, con un JMPSAAA4. alla subroutine dell’in- 
terprete che legge la stringa dal testo e la stampa 
sullo schermo. 

Da sottolineare che se la stringa è formata da N spazi 
vuoti, si avrà come effetto la cancellazione di N caratte- 
ri a partire da (Y.X). 


100 REM PRINT AT CUERSIDNE 2) I 
N LINGUAGGIO MACCHINA 

110 REM BY ROBERTO MORASSI 

111 : 

115 REM LA UERSIONE N.l E* STAT 
A PUUBBL I CATA SU CCC N.35 

116 : 

117 REM DIGITARE GLI OPPORTUNI 
PARAMETRI AL POSTO DI XXXXX 

120 PRINTCHR35C 147) 

130 SYSXXXXX , 10,5, "-STAMPA DA C 
10,53” 

140 SYSXXXXX, 20, 15, "-STAMPA DA 
C20, 153” 

150 SYSXXXXX, 2, 21, "-STAMPA DA C 
2 , 213 " 

999 END 

1000 PRINTCHRSC1473 "QUESTA ROUTI 
NE CONSENTE DI STAMPARE UNA 

STRINGA ”• 

1010 PRINT” IN UN DETERMINATO PU 
NTO DELLO SCHERMO" 

1020 RETURN 

1030 DATA 32,241,183,138,72,32,2 
41 , 183 

1040 DATA 104,168,24,32,240,255, 
32,253 

1050 DATA 174,76,164,170 

1060 DATA -1,2814 
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Pausa 

(Vedi CCC N.36) 

Anche questa è una versione diversa di una routine 
già comparsa sulla nostra rivista. 

Per inserire una pausa di durata variabile in un pro- 
gramma Basic si ricorre di regola ad un ciclo "a vuoto'* 
del tipo: 

FOR X=1 TO IOOO:NEXT 

La routine pubblicata in queste pagine “ferma’’ il pro- 
gramma per tempi variabili da mezzo secondo a circa 
due minuti: viene attivata con SYS XXXXX.A dove A 
(1-255) è il numero di unità di tempo lunghe mezzo se- 
condo ciascuna; ad esempio, con SYS XXXXX,20 il 
programma riparte dopo 10 secondi esatti. 

La routine preleva il parametro A (saltando la virgo- 
la) con un JSRSB 1 F7, e lo inserisce nel registro SFB. Ri- 
chiama poi due subroutine del Remai, e cioè SETTIM 
(JSRSFFDB) per azzerare l’orologio interno, e RDTIM 
(JSRSFFDE). 

Quest'ultima viene richiamata in ciclo continuo Fin- 
ché l'accumulatore (in cui viene letto il byte più basso 
del clock) non contiene il valore 30: poiché ogni “scat- 
to'' dell’orologio è di 1/60 di secondo, il ciclo si inter- 
rompe dopo 1/2 secondo. A questo punto viene decre- 
mentato di 1 il registro SFB, e l’intero ciclo viene ripetu- 
to finché questo registro non si azzera. 

100 REM PAUSA: UERSIONE 2 

110 REM BY ROBERTO MORASSI 

111 : 

115 REM LA UERSIONE 1 E’ STATA 
PUBBLICATA SU CCC N.3B 

116 REM DIGITARE L’OPPORTUNO PA 
RAMETRO AL POSTO DI XXXXX E 

YYYYY 

117 : 

120 PR INTCHRSC 147) "PAUSA DI 5 S 
ECOND I ” : SYSXXXXX , 10 
130 PR I NT ”PAUSA DI 10 SECONDI ” : 

SYSYYYYY , 20 
999 END 

1000 PRINTCHRSC 1473 "QUESTA ROUTI 
NE ARRESTA IL PROGRAMMA PER 
UN 

1010 PRINT”TEMPO PREFISSATO, IN 
UNITA * DI 0.5 SECONDI ” 

1020 RETURN 

1030 DATA 32,241,183,134,251,169 
,0,32 

1040 DATA 219,255,32,222,255,201 
,30,208 

1050 DATA 249,198,251,208,240,96 
1060 DATA -1,3706 


Per chi inizia 

Ricordano, ai nuovi lettori che ci leggono per la prima volta, 
che la nostra rivista propone su ogni numero un gruppo di routi- 
ne in Linguaggio Macchina, per il Commodore 64, interamente 
rilocabili. Ciò significa che l'utente potrà realizzare una vera e 
propria enciclopedia in LM. personalizzata in base alle 
proprie esigenze. 

E' ovvio che le routine proposte, per funzionare adeguatamen- 
te, soggiacciono ad alcuni limiti, ben illustrati nei primi numeri 
di "Nuovo Sistema ", 

In questa sede ci limitiamo a ricordare che, per evitare malfun- 
zionamenti, è necessario: 

• Fissare il Top di memoria Ram a 20000. 

• Caricare, servendosi del programma “Caricatore" a suo tem- 
po pubblicato (o analoghi), le routine Basic contenenti le istru- 
zioni Data. 

• Indicare la prima locazione di memoria in cui si desidera allo- 
care la routine stessa. 

• Attivare la routine secondo i suggerimenti indicati nei 
Demo a corredo. 


Mappa della memoria di 
NUOVO SISTEMA 

(Elenco delle routine pubblicate) 

Il primo valore indica l'indirizzo di par- 
tenza (coincidente con la SYS da impar- 
tire). mentre, il secondo, l'ultima locazio- 
ne contenente l’ultimo dato. 

Il numero fra parentesi, invece, si riferi- 
sce al numero di C.C.C. in cui sono state 
pubblicate le routine stesse. 

20000/20011 GoTo Calcolato (31) 
20012/20049 GoSub Calcolalo (31) 
20050/2012» Interp AS (31) 

20129/201»» Cambia colore (31) 
20189/20245 Scroti Carattere (31) 
20246/20302 Cancella caratt. (31) 
20303/20445 GoSub (.abel (32) 
20446/20562 GoTo Label (32) 
20563/20596 Restore linea (33) 
20597/20682 Disk Tool (33) 

20683/20775 Directory (33) 

20776/20858 Scroll Flag (34) 
20859/20914 Deek (34) 

20915/20952 Doke (34) 

20953/21106 Dedm/Esadec (35) 

21 107/21156 Locate cursor (35) 
21157/21260 Beep (35) 

21261/21473 Def.Sprite (36) 

21474/21839 Sprite tool (36) 

21840/21919 Coli sione sprite (36) 
21929/21962 Pause (36) 

21963/22035 Cancella schermo (37) 
22036/22174 Effetti sonori (37) 
22175/22195 Up Scroll (37) 

22196/22357 Righi Scroll (37) 
22358/22506 Left Scroll (37) 
22507/22598 Down Scroll (37) 
22599/22710 Comando MidS (38) 
22711/22781 Comando Instr (38) 
22782/22934 Help variabili (38) 

(Le routine di questo numero sono 
opera di Roberto Morassi) 
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Considerando che i numeri 1 . 2 e 7 sono esauriti, vogliale inviarmi i numen arretrati 
al prezzo di L 5 000 cadauno per richieste tino a 4 numeri, o di L 4 000 caoauno pei 
richieste oltre 1 4 numen arretrati e perciò per un totale di L ... Sono a conoscenza che 
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GIUDIZIO SUI PROGRAMMI DI QUESTO NUMERO 


Ho assegnato un voto da 0 a 10 ai programmi che mcHoo d» seguito: 
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0 / 


Voto 

Voto 

Voto 



PICCOLI ANNUNCI 



CERCO/OFFRO CONSULENZA 



INVIARE IN BUSTA 
CHIUSA E AFFRANCANDO 
SECONDO LE TARIFFE VIGENTI A 


COMMODORE COMPUTER CLUB 


V.le Famagosta, 75 
20142 Milano 
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INVIARE TUTTA LA PAGINA ANCHE SE SI UTILIZZA UNA SOLA SCHEDA 




Per ordinare i fascicoli mancanti alla tua collezione di Commodore Computer Club utilizza l'apposita scheda in fondo alla rivista 




MS-DOS & GW -BASIC emulator é anche su disco. Per quanti hanno acquistato la versione su 
cassetta ed inviano la relativa prova d acquisto. il dischetto è disponibile a lire 15.000 f-f lire 3.00C 
per spese di spedizione ) Non occorre inviare la cassetta né tantomeno il manualetto di istruzioni 
Chi non è in possesso della cassetta può richiedere il disco ed il manualetto al prezzo normale di 

lire 25. 000 ( -f lire 3. 000 per spese di spedizione ). 

Per una veloce evasione dell'ordine inviate un assegno bancario o circolare non trasferibile 
all'ordine della "Systems Editoriale ' (V le Famagosta, 75 - 20142 Milano). 



Sempre un passo avanti . 


Come gestire 
senza problemi 
i file sequenziali 


Una trattazione approfondita e ricca di 
esempi e consigli per evitare grossolani 
errori nel manipolare i file su 
disco o cassetta. 


di Alessandro de Simone 


Una delle principali applicazioni di un computer, come è 
noto, è quella di manipolare una gran quantità di informazio- 
ni di ogni tipo. Se, poi, i dati da tenere a mente superano la di- 
sponibilità di memoria RAM. oppure è necessario conservarli 
per future elaborazioni, diventa indispensabile la possibilità 
di ‘scaricarli’* su memorie di massa, in modo da renderli di- 
sponibili in qualsiasi momento. 

Le memorie di massa sono quei particolari dispositivi che 
permettono di registrare su supporto magnetico le informazio- 
ni sotto forma diversa. Scopo del presente inserto è quello, ap- 
punto, di guidare il lettore nella comprensione dei vari stadi 
della registrazione (e successiva lettura) non solo per program- 
mare correttamente ma, soprattutto, per individuare più facil- 
mente eventuali errori che inavvertitamente si dovessero 
compiere. 
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Che cosa è un file 


La parola inglese FILE significa "Raccolta '. "Schedario" ed 
altri termini, insomma, che richiamano alla mente un insieme 
ordinato di elementi. 

L'elenco telefonico, l'indice di un libro, le varie "voci" di un 
estratto conto bancario sono altrettanti file che rispettano rigi- 
damente alcune regole necessarie alla decodifica di ciascun e- 
lemento dello schedario. 

I nominativi (record) appartenenti, ad esempio, ad un qual- 
siasi elenco telefonico (file), sono organizzati in più parti 
(campi) ciascuno dei quali ha un preciso significato: il primo è 
il cognome, il secondo il nome, il terzo l'indirizzo e l'ultimo il 
numero di telefono. 

Vi sono, ovviamente, alcune eccezioni; al posto del cognome 
e del nome può figurare il solo nome (di una Ditta); vi possono 
essere più numeri di telefono; può figurare (o meno) il simbolo 
della segreteria telefonica (Q) o. addirittura, il rinvio ad altra 
voce (esempio: Pompieri. Vedi: Vigili del Fuoco). 

Nonostante le varie eccezioni, alcune delle quali noi stessi i- 
gnoriamo fino al momento in cui le incontriamo per la prima 
volta, la consultazione di un elenco telefonico risulta agevole e 
chiunque è in grado di rintracciare il numero desiderato. 

Un computer, purtroppo, è un po' più rigido della mente u- 
mana e se qualcuno gli ha "insegnato" che il terzo campo di un 
record rappresenta sempre un indirizzo, non è in grado di sta- 
bilire che un numero (ivi erroneamente trascritto) non può es- 
sere un indirizzo, e prosegue imperterrito la sua elabo- 
razione. 

Vedremo tra breve, servendoci di opportuni programmi, il 
motivo di quest'ultima precisazione. 


Simulazione di un file 

Noi stessi, senza saperlo, utilizziamo spesso dati sotto forma 
di file: una qualsiasi conversazione telefonicae rappresenta, 
ad esempio, uno scambio di dati trasmessi, e ricevuti, parola 
dopo parola. Per uscire dal quotidiano, tuttavia, ci riferiremo 
ad un caso particolare. 
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Pensiamo, infatti, a ciò che accade quando si svolge una con- 
versazione tra radioamatori: 

• Viene manifestata l'intenzione di parlare < Esempio : Qui SP-10. 
c'è qualcuno in ascolto?... ") 

• In un modo o in un altro comunichiamo la fine della comunica- 
zione e la richiesta di una risposta ( Esempio : "...passo ") 

• in una maniera perfettamente analoga l'eventuale interlocutore 
risponde, a suo tempo, alla domanda ( Esempio: Qui Hg-45 ricevuto 
messaggio da SP-10. Passo) 

• La conversazione, poi. continua fino a! termine (di solito un Pas- 
so e chiudo"). 

Bene, il computer richiede esattamente la stessa procedura, 
tanto è vero che lo scambio di dati tra calcolatore e periferica 
(registratore o drive) viene indicata con il temine Handsha- 
king che, letteralmente, vuol dire “Stringersi la mano". 

Prima di adoperare i “veri” file, come li utilizza un computer, 
possiamo quindi riconoscere una perfetta analogia tra il collo- 
quio che intercorre tra due radioamatori e quello che si stabili- 
sce tra computer e memoria di massa: 

• Si apre un file: si esplicita cioè la necessità di iniziare una 
conversazione. 

• Siscrivono . su! file prima aperto", le informazioni che si desidera 
inviare: si manifesta iti modo esplicito il desiderio di mandare (e 
non di ricevere) informazioni. 

• Si chiude il file dopo aver inviato / ultimo dato: si invia un segnale 
che comunica il termine di tutte le operazioni iniziate. 

Prima di parlare di argomenti più esplicitamente informati- 
ci. proseguiamo la nostra “simulazione” e cerchiamo di capire 
gli inconvenienti che possono capitare se non si rispettano le 
semplici regole cui accennavamo. 

Se, intatti, non “si apre” un file, l'eventuale radioamatore in 
ascolto non può riconoscere chi desidera parlare nè, tantome- 
no. se è proprio lui la persona invitata a conversare. Ne conse- 
gue che è indispensabile che la prima oparazione da compiere 
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sia quella di dare il segnale di inizio operazioni (aprire un 

file). . f-i- 

Se. pei errore, si aprisse (prima di chiuderlo) lo stesso tue. si 
genererebbe contusione: il radioamatore chiamato, ad un se- 
condo messaggio del tipo C e qualcuno in ascolto.’ sarebbe 
indotto, quanto meno, a credere che la sua prima risposta non 
sia stata ascoltata. Morale: mai aprire due volte lo stesso 
fide. 

Se. poi. si premesse il pulsante di trasmissione della radio 
mentre si sta ascoltando (oppure, viceversa, quello di ricezione 
mentre si sta trasmettendo), verrebbe ancora generata contu- 
sione. se non altro perchè non si riuscirebbe a ricevere (a tra- 
smettere). Ne consegue che se un file è stato aperto per trasmet- 
tere (PRINT) bisogna evitare di compiere operazioni tipiche 
di ricezione (INPUT) e viceversa. 


Gli errori logici 

Ora dobbiamo abbandonare l'analogia con le trasmissioni 
via radio perche, normalmente, non capita spesso, almeno 
nelle applicazioni più semplici, di aprire contemporaneamen- 
te due file, uno per leggere e l'altro per scrivere. 

Capita, invece, di scrivere un file, che rappresenta il risultato 
dell'elaborazione di un programma e, in seguito, leggere gli 
stessi dati mediante un altro programma, totalmente diverso 
dal precedente, pur se. come vedremo, “simmetrico". 

Supponiamo di disegnare, sullo schermo in alta risoluzione, 
una funzione matematica il cui completo tracciamento richie- 
da un'ora intera. 

Se abbiamo la necessità di far vedere, nel corso di una confe- 
renza. tale disegno, ed altri grafici che hanno richiesto tempi a- 
naloghi. sarebbe davvero noioso aspettare delle ore prima che 
si compia il disegno. E' molto più comodo, quindi, memoriz- 
zare le schermate che appaiono a mano a mano, in modo da ri- 
chiamarle una alla volta in pochi secondi. 

Potremo, quindi, realizzare due programmi: il primo, incari- 
cato di generare (e memorizzare su supporto magnetico) i gra- 
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tìci. ed il secondo in grado di caricarli e visualizzarli. 

Potremo far girare il primo programma durante la notte in 
modo da ritrovare, al mattino successivo, una diecina di dise- 
gni, pronti da visualizzare nell'arco di un tempo brevis- 
simo. 

Naturalmente bisogna prestare la massima attenzione affin- 
chè i due programmi siano perfettamente simmetrici. 


La simmetria 

Supponiamo, ora. di aver sviluppato un programma mate- 
matico tale che richieda il raggio (R) di una cerchio e fornisca, 
in risposta, tre dati: il diametro (2*R), l’area del cerchio 
(3.14*R*R) e la misura della circonferenza (2*3.14*R). 

Se questi stessi dati sono memorizzati su nastro (o disco) ma- 
gnetico per esser manipolati in seguito, è indispensabile che il 
programmatore sappia con la massima precisione l'ordine 
con cui sono stati memorizzati. 

Consideriamo, infatti, il caso in cui si compia l'elaborazione 
relativa non ad uno solo, ma ad un centinaio di cerchi, ognuno 
dei quali genera i tre dati prima visti. Volendo determinare, 
con un secondo programma che agisse sui dati già memoriz- 
zati. la lunghezza dell'arco di circonferenza relativa all'angolo 
di 45 gradi, sarà sufficiente individuare, in ciascuna terna, la 
lunghezza della circonferenza e impostare la proporzione... 

“Se l'intera circonferenza corrisponde a 360 gradi, quanto mi- 
surerà Parco corrispondente a 45 gradi?’* 

...che. in termini simbolici, si esprime anche con... 

“Lunghezza sta a 360 come X sta a 45” 

... c, denominata LU la misura della circonferenza, significa ri- 
solvere la semplice equazione: 

• 

X=LU*45/360 
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Sarà quindi necessario scrivere un programma che compia 
le seguenti operazioni: 

• Rintracciare il file registrato con il programma prima visto che 
contiene, lo ripetiamo, trecento dati relativi, a gruppi di tre. al dia- 
metro, all'area del cerchio e alla circonferenza di ciascun raggio 
calcolato. 

• Individuare, all'interno dello stesso file, i dati che interessano, vale 
a dire il terzo (prima circonferenza), il sesto (seconda circonferenza), 
il nono (terza circonferenza) e così via. 

In altre parole è assolutamente indispensabile ricordare la 
modalità secondo cui sono stati registrati i dati; in caso contra- 
rio si possono avere sgradite sorprese. 

Pensate, infatti, a ciò che potrebbe succedere se, invece di in- 
dividuare il terzo, sesto... nono dato, il programma esegua l’e- 
laborazione sul secondo, quinto... ottavo dato: nonostante, an- 
che in quest’ultimo caso, il ‘‘modulo’’ sia tre, verrebbe sottopo- 
sta ad elaborazione la misura relativa all’area e non alla cir- 
conferenza. Il programma, tuttavia, fornirà egualmente dei ri- 
sultati numerici che. però, non corrisponderanno assoluta- 
mente a ciò che si richiede. 

Allo stesso modo, se abbiamo a disposizione un archivio in 
cui. a gruppi di quattro, sono memorizzati gli abbonati del te- 
lefono (Cognome, Nome. Indirizzo, Numero di telefono) una 
eventuale ricerca di un cognome, impostata erroneamente sul 
“modulo" due (relativo al nome) porterebbe a risultati non 
richiesti. 

In definitiva: è possibile avere la massima libertà nello scri- 
vere dati su supporto magnetico, a patto di ricordare aon la 
massima precisione l'ordine con cui sono stati memorizzati, in 
modo da realizzare un programma che, tenendo conto dello 
schema con cui sono stati memorizzati i dati, rintracci quelli 
voluti escludendo soltanto quelli che non interessano. 

Non è obbligatorio, ovviamente, rispettare un “modulo", ma 
è intuitivo che il lavoro di ricerca è facilitato se è possibile ba- 
sarlo tenendo conto di una impostazione ordinata. 
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La sintassi dei file 


Le periferiche verso cui è possibile inviare dati sono di tre ti- 
pi: riceventi, trasmittenti e ricetrasmittenti. 

Il video va considerato come una vera e propria periferica 
verso la quale è possibile, però, il solo invio dei dati. Anche la 
stampante, da questo punto di vista, è una periferica solo rice- 
vente dal momento che è abilitata solo a ricevere dati da stam- 
pare su carta. A pensarci bene. però, una stampante invia, di 
tanto in tanto, dei segnali al computer: poiché la velocità di in- 
vio dati, dal computer alla stampante, è superiore alla velocità 
di scrittura, la periferica è costretta ad inviare un segnale di 
"sospensione" fintantoché non abbia esaurito di riversare su 
carta i caratteri già ricevuti. Nonostante questo, però, la stam- 
pante viene considerata una periferica ricevente. 

Apparecchi ricetrasmittenti sono, al contrario, i modem (che 
consentono la ricetrasmissione di dati via telefono) e. per ciò 
che ci riguarda, il registratore ed il drive. 

Per iniziare un "colloquio" è comunque necessario manife- 
stare tale intenzione aprendo un file. Il comando inglese corri- 
spondente ad “apri" è OPEN che va seguito da uno o più para- 
metri che meglio specificano le modalità che si intendono 
seguire. 

Nella forma completa il comando Open va seguito da tre pa- 
rametri che. in seguito, vedremo più da vicino: il numero di fi- 
le. il numero di periferica e l'indirizzo secondario. 


Il numero di periferica 

E' molto importante, per ora. tener conto che per ciò che ri- 
guarda il numero di periferica ce una limitata libertà di 
scelta. 

Con il numero zero, infatti, è possibile riferirsi esclusivamen- 
te alla tastiera: certo! La tastiera, a tutti gli effetti, è considerata 
una vera e propria periferica (sol.o trasmittente). Trascrivete il 
seguente programma e. dopo il Run. provate a digitar qualcosa 
e a premere il tasto Return. 
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100 OPEN 1,0 
110 INPUT# 1,A$ 

120 PRINT A$ 

130 GOTO 110 

Per "uscire" dall'insolita posizione sarà sufficiente premere i 
tasti Run/Stop e Restore. 

Un'altra periferica, cui è assegnato un numero ben preciso 
(3). è lo stesso video, periferica tipicamente ricevente. 

Aggiungete, al programma di prima, la seguente linea: 

105 OPEN3,3 

e modificate la 120 come segue: 

120 PRINT#3,A$ 

Prestate la massima attenzione al fatto che il comando 
PRINT, seguito dal carattere di cancelletto (#) non può essere 
abbreviato con il punto interrogativo (?), pena remissione di 
un “Syntax Error”. Sembrerebbe che. con le modifiche appor- 
tate, il programma giri allo stesso modo di prima ed infatti... è 
proprio così! Abbiamo preferito, però, parlare egualmente del- 
l’insolita sintassi, se non altro per ricordare l’abbinamento del 
video al numero 3 di periferica. 

Il numero uno. invece, è riservato al registratore e lo vedremo 
nei programmi applicativi. Il numero due, in "ambiente" 
Commodore, era riservato al registratore e nei precedenti mo- 
delli (ci riferiamo ai famosi PET) era infatti possibile collegare 
due registratori al calcolatore. Nei più recenti modelli, invece, 
dal Vie 20 in poi. è stata eliminata la possibilità di servirsi del 
secondo registratore ed il riferimento alla periferica numero 
due sortisce un effetto particolare. 

Ci riferiamo ai dispositivi esterni (altri computer, stampanti 
dotate di altri standard, eccetera) che agiscono con la cosiddet- 
ta interfaccia RS-232. Questa si collega al Commodore 64. me- 
diante connettore opportuno, alla porta utente, posat sul retro 
del calcolatore. 
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Dal momento che non capiterà spesso di collegare altri com- 
puter al vostro C/64, eviteremo di dilungarci suirargomento, 
ripromettendoci di ritornarvi in un articolo a parte. 

Il messaggio di errore ‘Device not present Errori* viene visua- 
lizzato nel caso in cui abbiate dotato il vostro computer di 
Speed Dos oppure di una cartuccia in grado di velocizzare il 
drive: molto spesso tali apparecchiature aggiuntive escludono 
la possibilità di servirsi del nastro cassetta. 

Il numero di periferica quattro si riferisce, di norma, alla 
stampante c tutte le stampanti Commodore hanno come stan- 
dard tale valore: alcune di esse, tuttavia, posseggono un devia- 
tore che. modificando il numero di periferica (di solito: 5) per- 
mettono il collegamento contemporaneo di due stampanti ad 
uno stesso calcolatore. Il vantaggio di un simile accorgimento 
è evidente: è possibile inviare una parte di dati ad una delle 
due stampanti, ed altri dati all'altra in modo da ottenere due 
tabulati diversi senza esser costretti a cambiare, ad esempio, ti- 
po di carta o tipo di margherita o di sfera. 

Il numero 8 è quello di solito riservato al drive e ciò spiega il 
motivo per cui quasi tutti i listati che è possibile reperire per i 
computer Commodore posseggono tale valore come numero 
di periferica. Anche noi. negli esempi che seguiranno, ci riferi- 
remo ai due numeri standard: 1 per il registratore, ed 8 per il 
disk drive. 

Iniziamo a parlare 

Dopo aver chiacchierato, in generale, del più e del meno sul- 
le periferiche, inizieremo, ora. a parlare dei file in maniera si- 
stematica. Abbiamo detto che la prima operazione da compie- 
re è l'apertura del file, mediante il comando OPEN. Riferendo- 
ci. per ora, al registratore, esaminiamo da vicino la forma sin- 
tattica per aprire un file in scrittura: 

OPEN FN,DN,SA, "PROVA” 

Il termine OPEN lo conosciamo già; esamineremo, quindi, 
gli altri tre. uno per uno. 
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Per FN si intende il File Number. vale a dire il numero di file 
al quale intendiamo riferirci. Non va dimenticato, infatti, che è 
possibile aprire, contemporaneamente, fina a dieci file se- 
quenziali! E' come se decidessimo di parlare con dieci radioa- 
matori: è intuitivo che non è possibile svolgere dieci colloqui 
allo stesso momento, ma è indispensabile stabilire, volta per 
volta, con chi abbiamo intenzione di comunicare. 

Il numero di file, insomma, servirà nel corso del collegamen- 
to per far capire al computer non solo con quale periferica vo- 
gliamo intrattenerci ma anche quale compito svolgere. Potreb- 
be, infatti, capitare il caso in cui siano stati aperti tre file: 

• il primo con la stampante, che consentirà di riversare su carta, se 
necessario, i risultati dell'elaborazione. 

• il secondo con il drive, in lettura, per estrame dati precedentemente 
memorizzati. 

•il terzo, sempre con il drive, per creare un nuovo file che rappresen- 
ta una nuova elaborazione del file precedente. 

Tanto per chiarire ulteriormente le idee, diremo che dopo a- 
ver assegnato il numero di file, che risulterà inevitabilmente 
"legato" ad una periferica, dovremo, in seguito, utilizzare il so- 
lo FN sia per indicare la periferica stessa (drive piuttosto che 
stampante), sia per assegnarle un particolare compito (leggere 
e non scrivere). 

Vediamo, ora. alcune forme sintattiche corrette ed altre che, 
invece, generano errori di vario tipo. 

11 solo OPEN genera un Syntax error ed è logico che sia così: 
il computer non ha il minimo elemento per determinare la pe- 
riferica che desideriamo utilizzare nè. tantomeno, il modo di 
adoperarla. Ha senso, però, il semplice comando dotato del so- 
lo FN: 

OPEN 1 

In questo modo si comunica l'intenzione di utilizzare in let- 
tura il registratore a cassette; se avete provato a digitare il co- 
mando precedente, noterete la comparsa del messaggio "Press 
play on tape". Premendo il tasto Run/Stop si interrompe l'atte- 
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sa (Break Error) nella quale si era messo il computer predispo- 
sto alla lettura di un file sequenziale dal nastro. Il comando a- 
nalogo (OPEN1.1) in cui si esplicita la richiesta di collegarsi 
con un registratore a cassette produce lo stesso effetto. 

Dopo aver ricordato che è possibile usare, per FN. un qual- 
siasi valore numerico compreso tra zero e 255 (pena remissio- 
ne di un "Illegal quantity error") ci soffermeremo molto breve- 
mente sul secondo parametro, il DN (Device Number. numero 
di periferica). 

Questo, come abbiamo già detto, ha un valore ben preciso, 
almeno se si utilizzano apparecchiature standard, e viene no- 
minato una sola volta, al momento iniziale della "dichiarazio- 
ne" OPEN. In seguito, infatti, le tre istruzioni tipiche del collo- 
quio tramite file (PRINT#. INPUT#. GET#) si riferiranno E- 
SCLUSIVAMENTE al numero di file FN che contiene, impli- 
citamente. anche il numero di periferica. Nemmeno con il co- 
mando di chiusura della comunicazione (CLOSE) sarà neces- 
sario ricordarsi di indicare il device! 

Il messaggio di errore derivante dalla cattiva manipolazione 
del DN è "Device not present Error" dovuto alla mancata ac- 
censione della periferica. Il messaggio compare dimenticando 
di fornire energia elettrica alla stampante ed al drive in quanto 
è presente, all'interno del computer, una sorta di "sensore" che 
si accorge della loro assenza. 

Se. invece, abbiamo dimenticato di collegare il registratore a 
cassette oppure di connettere il computer all'interfaccia RS- 
232. non verrà emesso alcun segnale di errore ed il calcolatore 
resterà in paziente attesa di ricezione dei dati (se predisposto 
alla lettura) oppure li invierà (se in scrittura) senza tener conto 
se c'è qualcuno a riceverli! 

Il terzo parametro (SA. Secondary Address. indirizzo secon- 
dario) non sempre è necessario ma. una volta dichiarato, rap- 
presenterà un modo di comportarsi ben preciso per la periferi- 
ca. Nel caso del registratore, il SA può assumere uno dei tre va- 
lori 0.1.2. Il primo indica l'imposizione di leggere dati dal na- 
stro (Press play on tape), gli altri due. invece, di scriverli (Press 
record & play on tape). Prima di dilungarci sulla differenza tra 
i valori 1 e 2. ricorderemo che le tre forme sintattiche: 
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OPEN 1 
OPEN 1,1 
OPEN 1,1.0 

rappresentano lo stesso comando, vale a dire predisporre il re- 
gnatore per la lettura del primo file sequenziale che dovesse 
essere individuato sul nastro non appena venga premuto il ta- 
sto Play. 

Mentre per la lettura è possibile omettere non solo il DN ma 
addirittura il SA. in fase di scrittura ciò non è possibile ed c ne- 
cessario indicarli tutti e tre. Rimane da chiarire la differenza e- 
sistente tra SA=1 oppure 2. 

E' quindi opportuno aprire una parentesi per affermare che 
se un file viene registrato è perchè si ha intenzione, in seguito, 
di leggerne il contenuto. Nel caso del registratore, come è noto, 
è possibile registrare tanti di quei dati da riempire l'intero na- 
stro. E' sottintesa anche la possibilità di registrare più file di- 
versi tra loro, di diversa lunghezza. Mentre, però, un dischetto 
contiene un numero di byte ben preciso (circa 160000). sul 
quale fa affidamento il computer per sapere se il floppy è "pie- 
no" oppure, semplicemente, per sapere dove leggere o scrivere 
i dati, lo stesso calcolatore non può sapere a priori la lunghez- 
za della cassetta adoperata nè. tantomeno, sapere se la parte di 
nastro presente davanti alla testina è quella relativa all'inizio, 
o meno, della cassetta. Risulta necessario, quindi, introdurre 
un "qualcosa" per cui il computer possa riconoscere se, nell'e- 
same successivo dei vari file, sia giunto alla fine del nastro op- 
pure se sono presenti altri dati dopo quelli che sta leggendo. 
Naturalmente tale capacità di discernimento è affidata al pro- 
grammatore in fase di scrittura del file: se. in fase di scrittura, 
viene utilizzato l'indirizzo secondario 1. in coda al file verrà 
apposto automaticamente un segnale EOF (End of file, fine 
del file) che. grossomodo, significa: “altri dati, oltre questi, pos- 
sono essere eventualmente presenti sul nastro". 

Se. invece, viene utilizzato 2 come valore di SA. verrà apposto 
un segnate di EOT (End of Tape, fine del nastro) che assume 
un significato diverso: "non vi sono più dati sul nastro; è ne- 
cessario sostituirlo per effettuare altre ricerche ". 

E' ovvio che se il computer, nel ricercare un file, incontra un 
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EOT invece che un EOF (o viceversa), possono verificarsi 
malfunzionamenti: 

• il nastro viene fatto scorrere inutilmente alla ricerca di un file che 
non ce (presenza di EOF invece di EOT). 

• il nastro viene fermato nonostante, posti di seguito, siano presenti 
altri file (presenza di EOT erroneamente inserita al posto di 
EOF). 

La gestione dei file su cassetta, nonostante sia facilitata dalle 
varie forme sintattiche disponibili, risulta piuttosto laboriosa 
c, in pratica, è molto meglio utilizzare un nastro per ogni file ri- 
nunciando alla possibilità di registrare sullo stesso supporto 
più file diversi e rintracciarli via software. 

11 terzo parametro è comunque indispensabile per registrare 
dati con il registratore; risulta altresì vitale per il disk drive (sia 
in lettura che in scrittura) mentre, con la stampante, assume 
un significato particolare a seconda del valore scelto. Rinvia- 
mo il lettore alla consultazione del manuale della stampante 
dal momento che il significato del valore di SA cambia a se- 
conda del modello. 

Un quarto parametro che abbiamo dimenticato di esamina- 
re è il nome del file. Questo, indispensabile lavorando con il 
drive, risulta non necessario con il registratore. Se. però, lo si 
dichiara in fase di lettura, verranno scartati tutti i file, even- 
tualmente rintracciati durante la ricerca, presenti sul nastro. 
Se, ad esempio, registrate un file con il nome di PIPPO: 

OPEN 1, 1 , l,”PIPPO” 

e, in seguito, lo desiderate leggere, potrete scegliere tra una del- 
le seguenti forme: 

OPEN5 oppure OPEN7.1 oppure OPEN3.1.0 :vcrrà esamina- 
to il primo file che capita di leggere; se però, prima di PIPPO, è 
presente un altro file, verrà letto il contenuto di questo. Si noti 
che. in scrittura, è stato usato, coinè FN. il valore 1. In fase di 
successiva lettura il numero di file (FN) può essere totalmente 
diverso (come, appunto: 5. 7. 3). 
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OPEN5.1.0. "PIPPO" :in questo caso, volendo indicare il nome 
esplicitamente, è necessario indicare i tre parametri NF. DN, 
SA; in caso di omissione viene visualizzato il solito Syntax er- 
rar. Con tale forma sintattica viene esclusa la possibilità di leg- 
gere file non desiderati a patto di non aver assegnato lo stesso 
nome PIPPO a due file registrati in successione! 

Si tenga presente che il file registrato col nome PIPPO viene 
riconosciuto valido se. in lettura, chiedete l’apertura di un file, 
dal nome più corto, che però coincida con le prime lettere del 
file registrato. Se. ad esempio, aprite la lettura nel modo 
seguente: 

OPEN 3,1,0,’TIF’ 

verrà riconosciuto valido non solo un file di nome PIP, ma 
anche quelli dotati dei nomi PIPPO, PIPE, PIPPONE; solo i 
file dotati di nomi come POP, PEPPE ed altri, insomma, con 
le prime tre lettere diverse da PIP. verranno scartati. 

Si tenga presente, infine, che se il file PIPPO è stato registrato 
con il SA pari a 2, desiderando rintracciare un altro file, regi- 
strato su nastro dopo di questo, la ricerca verrà bruscamente 
interrotta da un messaggio di “Device not present errar” a cau- 
sa del segnale di EOT apposto automaticamente alla fine 
del file. 


Chiusura delle trasmissioni 

Dopo aver aperto un file, e aver letto oppure scritto a seconda 
dei casi, è necessario chiuderlo, operazione questa che, corri- 
spondente al “Passo e chiudo", consente al calcolatore di siste- 
mare correttamente i dati in modo che possano esser letti, in 
seguito, senza alcuna difficoltà. 

La sintassi è semplicissima e si riferisce al numero di file pre- 
cedentemente aperto. Sarà quindi sufficiente un banale CLO- 
SE1 anche se. in apertura, avete dichirato un comando ben più 
lungo, come il seguente: 

OPEN 1 , 1 ,2, "PROVA” 
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E' possibile, ovviamente, anche un comando più dettagliato, 
come questo che segue: 

CLOSEl,l,2,”PROVA” 

ma il risultato che si ottiene è perfettamente identico al 
precedente. 

Sarà opportuno, ora. considerare i gravissimi malfunziona- 
menti che si verificano TUTTE le volte che ci si dimentica di 
chiudere un file. 

I casi che si possono presentare sono due ed ognuno di questi 
può creare problemi non immediatamente avvertibili. Inizia- 
mo dal più semplice, vale a dire dalla dimenticanza di chiude- 
re un file in lettura. 

Se. ad esempio, scriviamo un programma che ci permetta di 
leggere il contenuto di un file (già scritto in precedenza), l'e- 
ventuale omissione del comando di chiusura non crea partico- 
lari problemi, esempio: 

100 OPEN 1,1,0,’ "PROVA” 


500 END 

Fa eccezione, invece, il caso in cui. con lo stesso programma, 
si desideri esaminare un altro file, e si assegni lo stesso numero 
di FN. In questo caso, infatti, si avrebbe una situazione del 
genere: 

100 OPEN 1,1, ©."PROVA" 


300 OPEN 1,1,0, "NUMERI” 


500 END 

In questo caso, infatti, un messaggio di "File open error in 
300" verrebl e immediatamente visualizzato, interrompendo 
l'elaborazione. Se invece di assegnare il valore "1" a FN asse- 
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gnassimo un altro valore, la procedura non verrebbe interrotta 
e tutto procederebbe per il verso giusto; è bene, però, abituarsi 
a chiudere un file non appena si smette di servirsene. 

Se. comunque, dimenticate aperto qualche file, tenete pre- 
sente che tutte le volte che digitate RUN oppure aggiungete (o 
cancellate) una riga Basic, o effettuate una cancellazione delle 
variabili (C LR). tutti i file aperti fino a quel momento vengono 
automaticamente chiusi. 

Diamo ora uno sguardo a ciò che accade, invece, nel dimen- 
ticare aperto un file. 

Se ciò accade con la stampante i guai, di norma, non sono 
gravi, tranne qualche inspiegabile comportamento dovuto al- 
Timpostazione di indirizzi secondari. 

Grave, invece, risulta la dimenticanza di chiusura nel caso 
del registratore e gravissima, addirittura, è quella che si mani- 
festa utilizzando il drive. Il perchè è presto detto: 

Quando, in fase di lettura, esaminiamo un file alla ricerca di 
un dato, non sempre è possibile sapere a priori quale sia Tulti- 
mo byte memorizzato. E' il caso, tra i tanti, del file generato da 
un Word Processor (W/P) vale a dire uno di quei particolari 
programmi professionali che consentono di memorizzare let- 
tere, circolari e documenti in genere. E % impossibile, in questo 
caso, sapere quanto sarà lungo il documento che intendiamo 
leggere ma, fortunatamente, un opportuno segnale di “fine" 
viene apposto automaticamente dal computer tutte le volte che 
imponiamo il comando CLOSE. In altre parole il computer è 
in grado di capire quando un file non contiene più dati solo se 
è presente tale segnale: in caso contrario, quindi, la procedura 
rischia di diventare non più controllabile e, in ogni caso, non è 
possibile rintracciare correttamente i dati richiesti. 

Nel caso del disco i file che vengono aperti in scrittura e non 
chiusi, vengono indicati, nella directory, con un asterisco e ri- 
sultano esser “vuoti" (numero blocchi del file=0). 

Nel caso del registratore, invece, il computer, in fase di lettu- 
ra. leggerà correttamente i dati fintantoché sarà in grado di in- 
dividuarli; quando troverà il nastro “vuoto", continuerà la ri- 
cerca... all infinito senza emettere, purtroppo(l). alcuna segna- 
lazione di errore. Figurarsi che pasticcio succede se il file non 
chiuso era stato scritto, in fase di registrazione, non su di un 
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nastro vergine ma su un nastro riciclato, contenente, cioè, 
altri file... 

Un solo errore è possibile compiere senza che ciò pregiudi- 
chi la procedura: chiudere un file nonostante questo non sia 
stato aperto in precedenza. Tale possibilità consente operazio- 
ni del tipo... 

CLOSEl:OPENU,l "PROVA” 

...che garantiscono la possibilità, sempre c comunque, di apri- 
re un file senza pericolo che venga emesso il messaggio “File o- 
pen errori \ 


Come scrivere i dati 

Dopo aver visto come aprire (e chiudere) un file, sarebbe il 
caso, finalmente, di soffermarci su ciò che è possibile 
scrivere! 

Un file aperto per scrivere possiamo considerarlo come un 
canale verso il quale inviare i dati più disparati. Ma. è risaputo, 
nel campo dei calcolatori è possibile trattare valori numerici 
oppure stringhe alfanumeriche. Qualunque ‘ cosa" può essere 
inclusa in una delle due categorie appena definite: alla prima 
possiamo assegnarci numeri presenti in un estratto conto ban- 
cario, le misure di aree, pesi, pressioni, coefficienti di equazio- 
ni. eccetera; alla seconda, invece, i nomi, i cognomi, le unità di 
misura ed altri termini che contenessero caratteri alfabetici de- 
finiti con il termine STRINGA. Alcune “parole", però, posso- 
no esser considerate, a seconda dei casi, un numero oppure u- 
na stringa. Pensate alla data di nascita di un nostro amico op- 
pure al numero civico del suo indirizzo: pur essendo, a tutti gli 
effetti, valori numerici, è possibile considerarli stringhe anche 
perchè, di norma, non vengono sottoposti a calcoli. Il numero 
1987. quindi, potrà esser considerato una stringa, e trattato co- 
me tale, come pure 120387 può rappresentare, secondo una ba- 
nale codificazione, il giorno 12 marzo 1987. 

I lettori più fedeli, che ci seguono da tempo, sanno che i com- 
puter Commodore utilizzano sempre sette byte per memoriz- 
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zare un numero decimale, qualunque sia il suo valore: non ci 
soffermeremo su questo aspetto della questione, del resto già 
affrontato su altri numeri di CCC, che, paradossalmente, ri- 
chiede sette byte sia per memorizzare “1" che “3.12345678". Ci 
limiteremo a sottolineare, però, che la stringa "1" è lunga un 
solo byte, mentre la stringa “3.12345678” ne è lunga ben 10. 

Il motivo per cui teniamo a puntualizzare quanto abbiamo 
affermato, è dovuto al fatto che il computer, quando registra 
un file sequenziale, trasmette i valori sempre sotto forma di 
stringa, anche se questi sono valori numerici. 

Supponiamo di aver aperto un file e di utilizzare il comando 
PRINT# (NON abbreviabile con “?”) per memorizzarvi un 
valore numerico: 

100 OPEN 1,1,1 
110 PRINT# 1,100 
120 CLOSE1 

Il numero 100 non verrà trascritto con l'invio di sette byte, ma 
sotto forma di stringa: “100". Una successiva operazione di let- 
tura trasformerà automaticamente, se il caso, la stringa “100" 
nel numero 100. 

Il valore prima scritto, quindi, potrà esser letto con il seguen- 
te mini listato: 

100 OPEN1 
110 INPUT# 1,A 
120 PRINT A 
130 CLOSE1 

oppure con il seguente: 

100 OPEN1 
Ilo INPUT# 

120 PRINT A$ 

130 CLOSE1 

Naturalmente non è possibile il contrario. Se il programma 
che "scrive" è il seguente...: 
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100 OPEN 1,1,1 
no PRINT# 1, "PIPPO” 

120 CLOSE1 

...sarà possibile leggerlo solo con il programma che contiene 
INPUT# 1A$ e non INPUT# 1 A. Tentando di farlo si otter- 
rebbe. infatti, il messaggio "File data error" che comunica, ap- 
punto. l'impossibilità di assegnare ad una variabile numerica 
(A) una stringa alfanumerica ("PIPPO”). 

Altri errori che comunemente si verificano nel gestire un 
file sono: 

• "Not input file error ”. Viene visualizzato tentando di leggere un 
dato da un file aperto, al contrario, per registrare. Esempio: 

100 OPENM.l 

110 INPUT# 1 "PIPPO” 

120 CLOSE1 

• "Not output fde error”. Viene visualizzato nel caso contrario: 
quando si tenta di scrivere un dato in un file aperto, invece, per leg- 
gere. Esempio: 

100 OPEN1 

110 PRINT# l,”PIPPO” 

120 CLOSE1 

• “File too long error”. Questo tipo di errore, possibile solo in lettura, 
è opportuno che venga spiegato in dettaglio. Supponiamo di scrive- 
re un programma che consenta, grazie alla possibilità di concate- 
nare più stringhe tra loro, la formazione di una stringa lunga ben 
100 caratteri: 

100 FOR 1= 1TO100 
110 A$=A$+”A” 

120 NEXT 
130 OPEN 1,1,1 
140 PRINT# 1,A$ 

150 CLOSE1 
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Poiché è possibile realizzare stringhe di una lunghezza mas- 
sima di 255 caratteri, l'operazione è perfettamente lecita. Se. 
però, tentiamo di leggere la stringa appena scritta con il 
solito listato...: 

100 OPEN1 
110 INPUT# 1,AS 
120 PRINT AS 
130 CLOSE1 

... notiamo, con costernazione, la comparsa del messaggio pri- 
ma citato. Ciò è dovuto alla sintassi tipica del comando IN- 
PUT che non accetta MAI più di 80 caratteri. Se. infatti, utiliz- 
ziamo INPUT da tastiera... 

100 INPUT A$ 

110 PRINT A$ 

120 GOTO 100 

... ci rendiamo conto che non è possibile far accettare al com- 
puter un messaggio che sia lungo più di 80 caratteri. Nel caso, 
invece, di un dato proveniente da nastro (o disco) è come se si 
cercasse di "forzare" il computer ad accettare una stringa di 
lunghezza maggiore del consentito. In casi come questi viene 
attivata, inevitabilmente, la procedura di individuazione del- 
l'errore che. nel caso di input da tastiera, non viene presa in 
considerazione dal momento che mai, da tastiera, la stringa 
può superare la lunghezza massima prefissata. 

Morale: fate in modo che le stringhe inviate verso un file non 
superino mai gli 80 caratteri. 

Come leggere, quindi, la stringa AS lunga lOOcaratteri prece- 
dentemente memorizzata? Solo con l'istruzione GET# che. 
prelevando un solo carattere alla volta, non ha limitazioni di 
alcun genere: 

100 OPEN1 
110 GET#1,A$ 

120 PRINT A$; 

140 GOTOllO 
150 CLOSE1 
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Ci accorgiamo, però, che i cento caratteri vengono, sì, letti, 
ma il computer non sembra accorgersi che il file contiene una 
sola stringa. E' quindi necessario introdurre una piccola va- 
riante che consenta di accorgersi quando il file è terminato e 
non contiene altri dati. Il compito di individuare la fine del file 
è affidato alla variabile riservata ST che. di norma posta a zero, 
viene automaticamente modificata dal computer non appena 
qualcosa non va pèr il verso giusto nella gestione di un file. Ap- 
portando la seguente modifica...: 

100 OPEN1 
110 GET#1,A$ 

120 PRINT A$; 

140 IF ST=0THEN1 10 
150 CLOSE1 

... non appena ST diventerà diverso da zero il programma 
terminerà. 

Per variabile “riservata” si intende quella che può esser letta 
dall'utente ma non modificata, pena remissione di un Syntax 
error (provate a digitare: ST=3 o altri valori). 


Un breve riepilogo 

Prima di passare all'ultimo paragrafo è bene fare il punto 
della situazione ricordando, per ciascun comando, gli errori 
frmali e logici che c possibile commettere. 

OPEN 

Errori formali: 

• mancanza di alcuni (o tutti) i parametri necessari (Syntax 
Error). 

• apertura di un file già aperto (File open error). 

• mancata accensione della periferica interessata (Dexice not pre- 
sent error). 

• mancanza di segnale di EOT (Device not present error). 

• numero elevato di file aperti (Too manyfiles) 
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• numero illegale di periferica se DN risulta minore di zero oppure 
)255 (Jllegal quanti ty error). 

• assenza all’interno del nome, nel caso di gestione del floppy disk, 
del suffisso “,R (lettura) oppure ", W (scrittura). 

Errori logici 

• mancanza di collegamento con il terminale RS-232 (Open2,2,...). 
Effetto: invio di dati che nessuno riceverà ; attesa infinita di dati che 
non è possibile ricevere. 

• apertura di un file che. in seguito, non verrà preso in considerazio- 
ne. Effetto: occupazione inutile di canali aperti con il rischio di "Too 
many file error se si supera il numero di IO file aperti 
con tem poraneamen te. 

• assenza di indirizzo secondario necessario per impartire partico- 
lari ordini. Effetto: apparente disobbedienza della periferica, tipi- 
camente la stampante. 


CLOSE 
Errori formali 

• assenza di indicazione del LF (Syntax error). 

• valore LF elevato o negativo (Illegal quantity error). 

• sovrabbondanza di parametri: esempio: CLOSEI.2.3,4 (Type mi- 
smatch error). 

Errori logici 

• chiusura involontaria di un file che doveva restare aperto. Effetto: 
perdita di dati ; successivo File not open error. 

• chiusura di un file aperto verso la stampante senza un preventivo 
" scarico " dei dati del buffer. Effetto: perdita attuale di alcuni dati e 
successivo indesiderato recupero ” de! buffer nel momento in cui si 
aprirà nuovamente il file e si chiederà la stampa di alcuni 
caratteri. 


PRINT# 

Errori formali 

• mancata apertura del file (File not open error). 

• mancata indicazione de! LF (Syntax error). 
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• tentativo di scrivere in un file aperto per leggere (File output 
data error). 


Errori logici 

• scrittura di un dato in un file piuttosto che in un altro. Effetto: ri- 
trovare. in seguito, dati estranei ad un file e l'assenza degli stessi nel- 
I altro file al quale erano destinati. 

• presenza di caratteri "particolari" come virgola (.) punto e virgola 
(j doppio punto (:) ritomo carrello CHR$(13). (Vedi dopo per mag- 
giori dettagli). 

• mancata registrazione di alcuni dati oppure dati registrati più di 
una volta, che interferiscano con l’eventuale "modulo" impostato 
nella registrazione dell'intero file. 

• presenza del carattere speciale CHR$(34) (virgolette) che potrebbe 
creare problemi in fase di lettura dei dati. 

INPUT#, GET# 

Errori formali 

• mancata apertura del file (File not open error). 

• mancata indicazione di FN (Syntax error). 

• tentativo di leggere dati in un file aperto per scrivere (File input da- 
ta error). 

• lunghezza eccessiva, nel solo caso di INPUT, della stringa da leg- 
gere (String too long error). 

• presenza di caratteri speciali all'interno della stessa stringa (Extra 
ignored): solo con INPUT*. 

Errori logici 

• lettura di un dato non corrispondente a quello desiderato. Effetto: 
lettura de! Nome invece del Cognome, e simili. 

• scarto di un dato da considerare. Effetto: lettura del Nome e sua 
manipolazione, invece del Cognome, e simili. 


Un errore comune 

Molti libri sulla gestione dei file contengono errori di non lie- 
ve entità che hanno gettato nella più nera disperazione nume- 
rosi utenti dei computer Commodore. 
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Tali errori sono dovuti, soprattutto, alla superficialità con cui 
l'autrice dei volumi citati gestisce i dati da memorizzare. Al 
momento della registrazione, infatti, una elevata disinvoltura, 
fortemente discutibile, non genera visualizzazioni di errori e 
tutto sembra che si sia svolto correttamente. I dolori vengono 
poi. in fase di lettura del file... 

Prima di procedere è bene puntualizzare quanto segue: 

• Ogni qualvolta si invia un comando di scrittura relativo, po- 
niamo. ad una variabile, viene sempre inviato, subito dopo, 
ANCHE un comando di ritorno carrello (a meno di aggiunge- 
re uno dei due caratteri punto e virgola oppure virgola). Se. ad 
esempio, digitate sulla tastiera...: 

PRINT “PIPPO” 

... viene inviata, al video, la successione di caratteri: "P", “I”. 
P ; p • O". CHRSl 13). Ciò avviene anche se la stringa viene 
inviata (dopo l'opportuna apertura del file) alla stampante... 

PRINT# l,"PIPPO" 

... oppure alla memoria di massa (registratore o drive che sia). 
Se. infatti, ricorrete ad un ciclo For...Next. ottenete, in bell'ordi- 
ne. l'uno sotto 1’altro. i dieci nomi ‘PIPPO’: 

100 FOR 1= 1TO10 
110 PRINT “PIPPO” 

120 NEXT 

Il fatto che i dieci nomi compaiano I'UNO SOTTO L'AL- 
I RO significa, infatti, che dopo ciascuno di essi il computer 
appone. AUTOMATICAMENTE, un carattere di ritorno car- 
rello CHR$(13) che. nel caso di video o stampante, produce 
1 effetto di spostare la testina di scrittura (o il pennello di elet- 
troni nel caso del video) all'inizio del rigo successivo 
disponibile. 

Se però, come già detto, inseriamo, subito dopo "PIPPO”, un 
carattere di virgola (.) o di punto e virgola (;) impediamo al cal- 
colatore di inserire il ritorno carrello che verrà posto. AUTO- 
MATICAMENTE. dopo il primo PRINT relativo a., nessuna 
variabile, oppure se lo inseriremo noi appositamente. In altre 
parole i due programmi seguenti hanno lo stesso effetto: 

90 REM primo programma 
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100 FOR 1= 1TO10 
110 PRINT’PIPPO” 

120 NEXT 

90 REM secondo programma 
100 FOR I=lTO10 
110 PRINT”PIPPO”; 

115 PRINT CHR$(13); 

120 NEXT 

Si noti la maggior lunghezza del secondo listato, la necessità 
di inserire due caratteri di punto e virgola (pena la visualizza- 
zione di un rigo sì ed uno no) e la presenza del CHR$(13). 

Poiché l'effetto che ne risulta è IDENTICO nei due casi, ri- 
sulta priva di utilità la metodologia seguita nel secondo proce- 
dimento a meno di essere masochisti. 

Ma c’è un motivo molto, molto valido per non trascrivere 
MAI caratteri “speciali” E' sufficiente una minima disat- 
tenzione per generare file dal contenuto inutilizzabile. 

La soluzione è nelle vostre mani 

Abbiamo fin qui parlato dei principali inconvenienti che 
possono capitare a chi si accinge a lavorare sui file. 

Tutte le notizie riportate derivano in parte dai manuali uffi- 
ciali Commodore, in parte da numerose ore passate alla tastie- 
ra e in parte dallo studio degli errori logici contenuti nei 
libri citati. 

Siamo però convinti che una maggior padronanza della ge- 
stione dei file è possibile soltanto lavorando assiduamente e 
creando, oppure studiando, file creati con programmi di ogni 
tipo simili, ad esempio, a quelli riportati in queste pagine. 

La decisione, quindi, di non commentare i listati pubblicati, 
se non limitandosi alle note presenti nelle REM. non è dovuta 
a trascuratezza o. peggio, a sentimenti ostili nei confronti dei 
lettori che ci abbiano fin qui seguiti. 

L’invito a studiarli, scriverli testarli, modificarli e verificare, 
soprattutto, la correttezza di tali modifiche, va quindi inteso 
come un incoraggiamento, l'unico valido, allo studio di una 
tecnica di programmazione alla quale chiunque, prima o poi. 
deve approdare. 
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100 REM PROGRAMMA N.l 
110 : 

120 REM SCRITTURA FILE SEQUENZIALE 
130 REM QUALSIASI COMPUTER COMMODODRE 
140 : 

150 PR I NTCHRS C147)”l- NASTRO” 

160 PR I NT”2- DISCO” 

170 GET A$ : I F A$-”” THEN 170 

100 IF AS-”1" THEN 290 : REM SE NASTRO.. 

• 

190 IF AS- ”2 ” THEN 330:REM SE DISCO... 
200 GOTO 150: REM RIFIUTA ALTRI TASTI 
210 : 

220 REM SINTASSI NECESSARIA: 

230 REM OPEN LF.DN.SA 
240 REM LF-FILE LOGICO 
250 REM DN-NUMERO DI DEUICE ( PER I FERIC 
A) 

252 REM DN-1: NASTRO CASSETTA 
254 REM DN-0: DISK DRIUE 
260 REM SA-SECQND . ADDRESS CINDI.SECOND 
. ) 

270 : 

200 REM SINTASSI NECESSARIA PER NASTRO 
290 OPEN 1,1,1, "DIECI NUMERI” 

300 GOTO 390 
310 : 

320 REM SINTASSI NECESSARIA PER DISCO 
330 OPEN 1,0, 1 , "DIECI NUMERI, S.UJ" 

335 REM S: SEQUENZIALE 

336 REM U : UR I TE CSCRIUI) 

340 GOTO 390 

350 : 

360 REM SCRITTURA DEI DIECI NUMERI 
370 REM SUL CANALE PRECEDENTEMENTE 
380 REM APERTO CNASTRO 0 DISCO) 

390 FOR 1-1 TO 10 : REM CICLO FOR...NEXT 
400 PR INT#1 , I : NEXT : REM SCRIUE NUMERI 
41^^^SE^EN^REM^ERMIN^R0CEDURA 

100 REM PROGRAMMA N.2 
110 : 

120 REM LETTURA DEL FILE SEQUENZIALE G 
ENERATO CON IL PROGRAMMA N.l 
130 : 

140 PR INTCHRSC 147) "1- NASTRO” 


XXVI - Commodore Computer Club 




150 PRINT”2- 01 sca- 
leo GEI A$:IF AS-"" IHEN 1E0 
170 IF AS- ” 1 ” THEN 220:REM SE NASTRO.. 

180 IF A$-"2” THEN 2S0:REM SE DISCO... 
190 GOTO 140: REM RIFIUTA ALTRI TASTI 
200 : 

210 REM SINTASSI NECESSARIA PER MASTRO 
220 OPEN 5, 1,0: REM NOME NON NECESSARIO 
230 GOTO 340 
240 : 

250 REM SINTASSI NECESSARIA PER DISCO 
250 OPEN 5,0,8, “DIECI NUMERI, S,R” 

270 REM S-SEQUENZIALE 
280 REM R-READ C "LEGGI ) 

290 GOTO 340 
300 : 

310 REM LETTURA DEI DIECI NUMERI 
320 REM SUL CANALE PRECEDENTEMENTE 
330 REM APERTO (NASTRO 0 DISCO) 

340 FOR I"1 TO 10: REM CICLO FOR...NEXT 
350 INPUTH5, I : REM LEGGE NUMERI 
360 PRINTI : REM UISUALI2ZA UALORE LETTO 
370 NEXT : REM CHIUSURA CICLO 

3B^^S^5^N^^ETWERMIN^R0CEDUR^ 

100 REM PROGRAMMA N.3 
110 : 

120 REM LETTURA DI QUALUNQUE FILE 
130 REM SEQUENZIALE DI TIPO NUMERICO 
140 : 

150 PRINTCHRSC 147) ”1- NASTRO” 

160 PRINT”2- DISCO” 

170 GET AS : I F AS-”” THEN 170 

100 IF AS-"1” THEN 230 : REM SE NASTRO.. 

• 

190 IF AS-”2” THEN 270 -.REM SE DISCO... 
200 GOTO 150: REM RIFIUTA ALTRI TASTI 
210 : 

220 REM SINTASSI NECESSARIA PER NASTRO 
230 OPEN 8: REM SINTASSI "MINIMA" 

240 GOTO 330 
250 : 

2S0 REM SINTASSI NECESSARIA PER DISCO 
270 OPEN 8,8, 8, "DIECI NUMERI, S,R" 
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280 GOTO 330 
230 : 

300 REH LETTURA DEI UALORI NUMERICI 
310 REM SUL CANALE PRECEDENTEMENTE 
320 REM APERTO C NASTRO 0 DISCO? 

330 INPUTH8 , I : REM LEGGE NUMERO 

340 PRINTI : REM UISUALIZZA UALORE LETTO 

350 IF ST> 0 THEN 370: REM ESAME ST 

3G0 GOTO 330: REM RICOMINCIA 

370 IF AS-"2" THEN 4G0 : REM SE DISCO 

380 PRINT: PRINT”ST UALE:”ST; 

380 IF CST AND 64)-64 THEN PRINT”F INE 
FILE" 

400 IF CST AND 325-32 THEN PRINT"CHEC 
KSUM ERROR (CASSETTA) ” 

410 IF CST AND 16)-1B THEN PR I NT”ERRO 
RE DI LETTURA (CASSETTA) '* 

420 IF CST AND B)-8 THEN PRINT "BLDCCO 
LUNGO C CASSETTA)" 

430 IF CST AND 4)-4 THEN PRINT”BLOCCO 
CORTO (CASSETTA)" 

440 IF CST AND 2)-2 THEN PRINT”ERRORE 
DI TEMPOR I ZZAZ I ONE (CASSETTA)” 

450 GOTO 500: REM ESCLUDE LETTURA CANAL 
E DI ERRORE IDONEO PER IL SOLO DIS 
CO 

460 OPEN 15,8, 15 : REM APERTURA CANALE E 
RRORE (SOLO PER DISCO) 

470 INPUT# 15 , A , AS , B , C : REM LEGGE DA DIS 
CO I UARI CODICI ERRORE 
480 PR INTA ; AS ; B ; C : REM UISUALIZZA I MES 
SAGGI LETTI PRECEDENTEMENTE 
430 CLOSE 15: REM CHIUDE CANALE ERRORE 
500 CLOSE 8: END : REM TERMINE INTERA PR 
OCEDURA SIA PER DISCO CHE PER NAST 
R ° 

100 REM PROGRAMMA N.4 
110 : 

120 REM SCRITTURA FILE SEQUENZIALE 
130 REM FORMATO DA UALORI NUMERICI 
140 REM E STRINGHE ALFANUMERICHE 
150 : 

160 PRINTCHRSC 147) ” 1- NASTRO” 

170 PRINT ”2- DISCO” 

180 GET A$ : I F AS= ” ” THEN 150 
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190 IF AS-”1" THEN 240:REM SE NASTRO.. 

• 

EOO IF A$-"2” THEN EBO : REM SE DISCO... 
E10 GOTO 160: REM RIFIUTA ALTRI TASTI 
EE0 : 

E30 REN SCRIUE NUMERI E PAROLE 
E40 OPEN 1,1,2, "NUMERI PAROLE”: REN PRE 
STARE ATTENZIONE AL SA-E 
E50 GOTO 340 
E60 : 

E70 REN SINTASSI NECESSARIA PER DISCO 
EBO OPEN l.B.l, "NUMERI PAROLE , S , U " 

E90 GOTO 340 
300 :• 

310 REN SCRITTURA DEI UENTI DATI 
3E0 REN SUL CANALE PRECEDENTEMENTE 
330 REN APERTO C NASTRO 0 DISCO) 

340 FOR 1-1 TO 10: REN APERTURA DEL PRI 
NO CICLO FOR...NEXT RELATIUQ AI NU 
NERI 

350 PRINT#1 , I : NEXT : REN SCRIUE NUNERI 
360 FOR 1-1 TO 10: REN APERTURA DEL SEC 
ONDO CICLO FOR... NEXT RELATIUO ALL 
E STRINGHE 

370 PRINTttl . "PAROLA": NEXT: REN SCRIUE P 
AROLE 

3B0 CLOSE 1 : END : R EN TERMI NE PROCEDURA 

100 REN PROGRAMMA N.5 

110 : 

120 REN LETTURA DI QUALUNQUE FILE SEQU 
ENZIALE 

130 REN NUMERICO OPPURE STRINGA NEDIAN 
TE IL RICORSO ALL * I STRUZ IONE GET# 
140 : 

150 PR INTCHRSC 147) ”1- NASTRO” 

160 PRI NT ”2- DISCO" 

170 GET AS:IF AS-"" THEN 170 

160 IF A$-"l" THEN 230: REM SE NASTRO.. 

• 

130 IF AS- "2” THEN 270: REM SE DISCO... 
500 GOTO 150: REM RIFIUTA ALTRI TASTI 
510 : 

550 REM SINTASSI NECESSARIA PER NASTRO 
530 OPEN B : REM SINTASSI "MINIMA" 

540 GOTO 360 


Commodore Computer Club - XXIX 



250 : 

260 REM SINTASSI NECESSARIA PER DISCO 
270 INPUT "NONE F I LE” ; NFS : I F NFS-”” TH 
EN 270 

2B0 IF LENCNFS ) >16 THEN 270 
290 NFS-NFS+ ” , S , R ” 

300 OPEN 0 ,0,8, NFS 
310 GOTO 360 
320 : 

330 REN LETTURA DEI SINGOLI CARATTERI 
340 REN SUL CANALE PRECEDENTEMENTE 
350 REN APERTO CNASTRO 0 DISCO) 

360 GET #0 , X$ : REN LEGGE SINGOLO CARATT 
ERE 

370 PR I NTXS ; : REN E LO UISUAL IZZA (ATTE 
NZ I ONE AL PUNTO E UIRGOLA FINALE) 
380 IF ST> 0 THEN 400: REN ESAME ST 
390 GOTO 360: REN RICOMINCIA 
400 IF A$-”2” THEN 430: REN SE DISCO 
410 PR I NT : PR I NT ”ST UALE:”ST; 

420 GOTO 470 
430 OPEN 15,0, 15 
440 INPUT# 15 , A , A$ , B , C 
450 PR I NT : PR I NT A ; A$ ; B ; C 
460 CLOSE 15 

470 CLOSE 8: END : REN TERMINE INTERA PR 
OCEDURA SIA PER DISCO CHE PER NAST 



100 REN PROGRAMMA N.6 
110 : 

120 REN SCRITTURA DI EUENTUALI CARATTE 


RI NULLI ED ESAME SUCCESS IUO 
130 REN (MEDIANTE IL PROGRAMMA N.5) DE 
I MALFUNZIONAMENTI RISCONTRABILI 
140 : 

150 PR INTCHRSC 147) ”1- NASTRO” 

160 PRINT”2- DISCO” 

170 GET A$ : I F A$-”” THEN 170 
100 IF A$-”l” THEN 220 : REM SE NASTRO.. 
• 

190 IF A$- ”2 ” THEN 260:REM SE DISCO... 
200 GOTO 150 : REM RIFIUTA ALTRI TASTI 
210 REM NASTRO 

220 OPEN 1,1,1, "CARATTERI NULLI” 

230 GOTO 320 
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250 REM DISCO 

250 OPEN 1,0,8, "CARATTERI NULLI f S, tal" 
270 GOTO 320 

290 REM SCRITTURA DI STRINGHE ALFAN . 
300 REM SUL CANALE PRECEDENTEMENTE 
310 REM APERTO (NASTRO 0 DISCO) 

320 X$" " ” : REM ANNULLAMENTO "PREUENTIUO 
" DELLA STRINGA JOLLY ALFANUMERICA 
330 INPUT "DIGITA LA STR I NGA " ; X$ : REM D 
IG I TA2 I ONE CARATTERI 
340 PRINT# 1 , XS : REM SCRITTURA SU FILE 
350 IF X$<>”*" THEN 320: REM CONTINUAZI 
ONE DIGITAZIONE SE NON CARATTERE " 
CODICE ” 

350__CLOSE__lj_END : REM TERMINE PROCEDURA 
100 REM PROGRAMMA N.7 

120 REM SCRITTURA DI "OGGETTI” SEPARAT 
I DA UIRGOLA E PUNTO E UIRGOLA 
130 REM PER SUCCESS I UA LETTURA 
140 REM (MEDIANTE IL PROGRAMMA N.0) DE 
I MALFUNZIONAMENTI RISCONTRABILI 
160 PR INTCHRSC 147) ”1- NASTRO" 

170 PR I NT "2- DISCO" 

100 GET AS : I F AS-"" THEN 180 

190 IF A$-"l" THEN 230:REM SE NASTRO.. 

200 IF AS* "2 " THEN 270:REM SE DISCO... 
210 GOTO 160: REM RIFIUTA ALTRI TASTI 
220 REM NASTRO 
230 OPEN 1 , 1 , 1 , "UIRGOLA" 

240 GOTO 300 
260 REM DISCO 

270 OPEN 1,8,8, "UIRGOLA.S.LT 
280 GOTO 300 

300 A-10: B-20:C-3. 14: REM IMPOSTAZIONE 
DI ALCUNI UALORI NUMERICI 
310 A$-”PRIMO” : BS-"SECONDC" : CS-"TERZO" 

: REM STRINGHE ALFANUMERICHE 
320 PR I NT#1 , A , B , C : REM SEPARAZIONE UIRG 
OLA TRA UALORI NUMERICI 
330 PR I NT # 1 , A ; B ; C : REM SEPARAZIONE PUNT 
0 E UIRGOLA TRA UALORI NUMERICI 
340 PRINTttl , AS, ES.CS: REM SEPARAZIONE U 
IPGOLA TRA STRINGHE 

350 PR I NT#1 , AS ; B$ . C$ : REM SEPARAZIONE P 
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UNTO E UIRGOLA TRA STRINGHE 
360 CL05E 1 : END -.REM TERMINE PROCEDURA 

100 REH PROGRAMMA N.0 

120 REM LETTURA DI QUALUNQUE FILE SEQU 
ENZIALE 

130 REM NUMERICO OPPURE STRINGA MEDIAN 

TE IL RICORSO ALL’ISTRUZIONE INPUT # 
150 PRINTCHRS(147)”1- NASTRO” 

160 PRINT ”2- DISCO” 

170 GET AS : I F AS-”” THEN 170 

180 IF A$-”l” THEN 220 : REM SE NASTRO.. 

180 IF AS- ”2 ” THEN 260: REM SE DISCO... 

200 GOTO 150: REM RIFIUTA ALTRI TASTI 

280 OPEN 8: REM NASTRO 

230 GOTO 350 

250 REM DISCO 

260 INPUT ”NOME F ILE" ; NFS : I F NFS-”” TH 
EN 260 

270 IF LENCNFS )> 16 THEN 260 
280 NFS-NFS+ ” , S , R ” 

290 OPEN 8. 8,8, NFS 
300 GOTO 350 

320 REM LETTURA DELLE SINGOLE STRINGHE 
330 REM SUL CANALE PRECEDENTEMENTE 
340 REM APERTO (NASTRO 0 DISCO) 

350 I NPUT88 , X$ : REM LEGGE STRINGA 
360 PR INTXS : REM LA U I SUAL I ZZA . . . 

370 PR I NT "LUNGHEZZA : ”CHR$ CIB)LEN(XS) : R 
EM ...INSIEME ALLA SUA LUNGHEZZA.. 
380 PRINT "UALORE : "CHRSC 18 )UAL C XS ) : REM 
. . .E AL SUO UALORE 
390 PRINT 

400 IF ST> 0 THEN 420: REM ESAME ST 
410 GOTO 350: REM RICOMINCIA 
420 IF AS- ”2 ” THEN 450: REM SE DISCO 
430 PRINT: PRINT”ST UALE:”ST; 

440 GOTO 490 
450 OPEN 15,8,15 
460 INPUT# 15, A , AS , B , C 
470 PRINT: PRINTA; AS; B;C 
480 CLOSE 15 

490 CLOSE 8: END : REM TERMINE INTERA PR 
OCEDURA SIA PEP DISCO CHE PER NAST 

RO 


